
Rafi DERYEGHIYAN 

vous propose de 
penetrer dans,.. 



Le monde 
des sorciers 



... Ceux-ci oni en effet envahi la planete et vous 
seul pouvez les arreter. Arriverez-vous d etre a la 
hauteur de la tache qui vous attend ? 

Le programme comporle un veritable analyseur 
syntaxique. Vos ordres devront etre de la forme 
verbe + complement (le verbe etant d I'imperatif}. 
Vous pourrez inserer n'importe quelle phrase 
entre le verbe et le complement. De plus, le verbe 
peut etre abrege a trois lettres et le complement a 
quatre. Par exemple, les trois phrases ci-dessous 
ont la meme signification : 

— entre dans la grotte 

— entre grotte 

— ent grot 



A chaque fois que l ordinateur vous posera une 
question du type ou " ou "a qui", repondez unique- 
ment par un nom. 

Le programme a ete redige en BASIC standard et il 
n'est absolument pas protege. Trop long pour etre 
publie dans TREMPLIN MICRO, nous vous le propo- 
sons sous deux formes : 



• gratuitement si vous commandez la dis- 
quette numero 18 de TREMPLIN MICRO. 

• au prix symbolique de 20 F ( + frais d'envoi) 
si vous le commandez seul. 



APPLE GS 1988 



II semble que Ton s'achemine enfin vers le remplacement gratuit des VGC et ROM de la 
premiere generation... mais nous n'avons pas obtenu confirmation de cette informa- 
tion au moment ou nous mettons sous presse. II s'agit pourtant d un evenement impor- 
tant, justifiant plus qu'un avis conditionnel dans une revue comme TREMPLIN MICRO. 

Souhaitons done que nos lecteurs puissent effectivement, au cours des prochains jours, 
Faire remplacer : 

• VGC et ROM de leur Apple GS cheri 

• Obtenir la version 3.1 de la disquette Systeme et, dans la foulee, les versions 1 .2 de 
GS. PAINT et VS.COM. 

Sans doute aurons-nous l occasion d en reparler. Mon correspondent americain dispose 
de la nouvelle ROM depuis plusieurs mois... westor. 
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Disons-le clairement 



J'aimerais partager I'optimisme de notre ami Yvan 
KCENIG quant a I'avenir du beau dernier de la gamme 
Apple //, le prometteur GS. Les plus fideles lecteurs de 
Tremplin Micro peuvent pourtant temoigner des efforts 
que nous avons deja accompli* pour aider les utilisa- 
teurs de cette machine. Nous avons. en effet, ete les 
premiers a lui accorder autont de pages. 
Cest tellement vrai que les fans des Ancetres — 
comprenez par la les Apple He et Ik — nous onl 
parfois accuses d'etre partiaux (le mot n'est pas trop 
fort) dans nos jugements. II est vrai que, dons le 
meme temps, d'autres lecteurs me reprochaient cer- 
tains (libres) propos qui malmenaient leur nouveau 
joujou. Les plus objectifs savent heureusement que 
Tremplin Micro et son fondateur ne connaissent que 
I'interet du lecteur-consommateur. 
Precision utile : cette nouvelle mise au point 
n'engage que son signatoire.*. lequel n r a pas de 
compte personnel a regler. 

APPLE 

Je n'ai de remerciement a adresser a Apple France que 
pour l unique pret d'un GS pendant deux semaines, 
immediatement apres I'annonce de la sortie de la 
machine, Respeclueux de la verite, je reconnais avoir 
egalement recu, en deux ans, une demi-douzaine de 
communiques de presse, mois seulement apres des 
demandes reiterees ; il semble que nos coordonnees 
disparaissent periodiquement du fichier de nos confre- 
res du service de presse. Passons. Heureusement, 
nous sommes parfaitement informes sur les projets 
d'Amstrod, Atari, Victor, Donatec... les autres 
m'excuseront de ne point les citer. Amusant, non ? 

Documentation 

Les lecteurs de Tremplin Micro supposent en general 
que les animateurs de leur revue preferee croulent 
sous les notes du support technique et peuvent syste- 
matiquement essayer TOUS les logiciels fonctionnant 
sur Apple. Tout faux ! Si quelques grands editeurs 
de logiciels nous honorent de leur confiance (Version 
Soft, Borland, Cedic/ Nathan, Gribouille), d'autres 
nous ignorent totalement (Microsoft par exemple et, 
bien sur, Apple). Par contre, tous les services de 
presse des Editeurs de livres (sauf Apple) nous adres- 
sent leurs ouvroges. 

csBasic 

Vous n'ovez pas reve : non seulement nous avons 



bien achete notre GSBasic, mais nous allons prochai- 
nement mettre la version francaise d'une documen- 
tation TRES COMPLETE 6 la disposition de cedes et de 
ceux qui desireront s amuser avec ce super Bask 
americain. Ainsi, une fois de plus, Tremplin Micro 
aidero ses lectrices et lecteurs a programmer, meme 
si cet objectif paroTt illusoire oux inconditionnels du 
Mac. Je connais encore des milliers de personnes qui 
programment (le controle OJD de TM. en fait heu- 
reusement foi). 

Et puisque j'en suis au chapitre de la programmation, 
j'avoue etre plutot content d'avoir incite des centai- 
nes de lecteurs a jouer avec le langage machine. 
Vous avez bien lu : JOUER... car c est d'abord de cela 
qu'il s agit. Cest un specialiste des revues ludiques 
qui vous I'affirme : pratiquer I'assembleur ou 
le C est au moins aussi amusant que de croiser les 
mots ou d'exercer son intellect sur quelque enigme 
mathemotique. Avis aux amateurs que je n'ai pos 
encore reussi 6 convaincre I 

LavenirduCS 

Cest evidemment la que vous m'attendez. Y croit-il . . . 
comme Nestor et comme Yvan KCENIG... ou a-t-il ete 
definitivement conquis par quelque IBM et autre Ata- 
ri ? La pratique de la programmation m a appris 6 
etre pragmatique. II est evident que I'avenir de 
I'Apple II GS ne depend que de la (bonne) volonte 
d'Apple. Un fait positif : le remplocement gratuit de 
la ROM boguee par une nouvelle version... disponi- 
ble depuis bientot six mois (que I on nous excuse si 
nous ne I'avons pas signale dons ces colannes : nous 
I'avons appris par la presse americaine, puis par des 
revendeurs). Pour le reste : mystere et bouche cou- 
sue. L'information ne posse plus (est-elle jamais pas- 
see ?). On ne nous promet rien, mais on laisse les 
bruits courir. Tenez ! n'importe quel concessionnaire 
vous murmurera dans le tuyau de l oreille qu'il est 
actuellement plus interessont d'acheter un MAC PLUS 
qu un GS. Ce qui est peut-etre vrai... quand on ne 
recherche qu'un traitement de texte ou un tableur, 
mais faux pour la plupart des applemaniaques 
venant de I'Apple //, 

Puisque vous lisez cette revue, il est evident que vous 
possedez encore I'une de ces merveilleuses petites 
machines a l enseigne de la Pomme et, GS ou non, 
j'en suis heureux pour vous. Je sais que mes vceux de 
bonne et heureuse annee sont autant de vceux de 
moments plaisants et souvent coptivants. Merci de 
votre attention. e-H 
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BRUITACE 

27 bruits ou sons divers, accompagnes des 
indications pour les reproduce facilement 
(utilise le programme LM LASER) 





STA RT U R 




1 9fl 

ITU 


PRINT PHP* {'dVPlIM ttPIITT 














A3D2 


1 00 


TEXT : NORMAL : HOME 


7F31 




PR TNT PUM / A "l DD( O II . DD 




1 1 ft 


bUSUB 200: PRINT i HTAB 2 






INT 


ED56 




n 


2368 


?i n 


FOR T = 1 Tfl 79- PRINT ,r - 




1 20 


PRINT "PRHRRAMMF R R II 1 

r [Mill r F\UU l\MI NIC □ l\ U J 






■ ; : NEXT 


3058 




T A G E, par Jean PERROT 




220 


RETURN 


63B1 




M 


F084 








130 


HTAB 30: PRINT "Le 25 Sep 




BRU I TAGE 






tembre 1987" 


AF0? 


20 


REM ( BRUITAGE )-- 




140 


GOSUB 210: PRINT : VTAB 1 












3 


1177 


21 




003A 


150 


PRINT "-Le programme 'BRU 




30 


D$ = CHR$ (4) : PRINT DV 






ITAGE' que uous lancerez 






PR£3" ! PRINT 


BD30 




en appuyant sur RETURN co 




40 


JV% = CHRt (15) itm = C 






nt ient" : PRINT "27 SONS. . 






HR* (14) 


449C 




.qui pourront Stre utilis 




50 


PRINT D$ ■ BLOAD LASER" 


545F 




£s pour sonoriser un proQ 




60 




003A 




ramme BASIC." 


AB11 


70 


HOME : GOSUB 800 


F319 


160 


PRINT : PRINT "-L'uti I isa 




80 


HOME : POKE 1403,32: PRIN 






teur entendra le SON choi 






T " ■ 


CCFE 




si et les indications pou 




81 


POKE 1403,32: PRINT " B R 






r reproduire ce SON lui ' 






U I T A G E w 


EABD 




seront donne'es en bas de 




82 


POKE 1403,32: PRINT 






l'*eran* - 


0C88 




"" " "NR* 


A92E 


170 


PRINT : POKE 1403,10: PRI 




100 


PRINT : PRINT IV*' 1 "NR* 






NT " 'BRUITAGE' uti ? ise le 






" Tir 'LASERS lent* 


5C75 




programme L.M. ' LASER' C 




105 


PRINT IVf" 2 "NRV p 






A*302,L*60)' 


2AFC 




lus rapide" 


6914 


180 


VTAB 22: POKE 1403,40: PR 




110 


PRINT IV*" 3 *NR* U ""I 




INT "RETURN pour lancer ' 






res rapide" 


CF0F 




BRUITAGE' " ; : GET H* : PRI 




115 


PRINT IW 4 "NRS" e 




NT 


B618 




ncore plus. . 


6757 



TREMPLIN MICRO 



BRUITACE 



120 PRINT IV*" 5 "NRf" """*'. 

..PROUT..." ?3AC 
125 PRINT IW 6 "NRV Plusie 

urs notes basses" 
130 PRINT 7 "NR*" " " " " 

plus hautes" 

135 PRINT IV*" 8 "NR* h 

"encore plus" 31C1 

140 PRINT 9 "NRf" Plusie 

urs notes rapides" 
145 PRINT IW A "NR$" 

tres rapides" 

150 PRINT W* n B "NRt" Laser 

ascendant" 9C93 
155 PRINT IW C "NR$" Laser 

descendant" 99DC 
160 PRINT IUV D "NR*" Laser 

descendant plus court" 
170 PRINT IV*" E ■ NR$ ; ■ PIM-P 

OM (Pompiers)" 
180 POKE 1403,40; UTAB 5: PRI 

NT IW F ' NR$ " AMBULANCE 

C653 

190 POKE 1403,40: PRINT IVV 

G "NRt" MARSEILLAISE" 
195 POKE 1403,40: PRINT I\>** 

H "NR$" Note longue 1 ' 
200 POKE 1403,40: PRINT IV*" 

I "NR* " Note courts" 
205 POKE 1403,40: PRINT IV*" 

J "NRt" COUCOU" 
210 POKE 1403,40: PRINT IV*" 

K "NR$" CUICUI" 
215 POKE 1403,40: PRINT IV*" 

L "NR*" Su i te de notes <r 

apide)" 03C2 
220 POKE 1403,40: PRINT IV*" 

M "NRt" Autre suite <rapi 

de) B 8312 
225 POKE 1403,40: PRINT IV*" 

N " NR* 1 Sui te de notes ( 1 

ente)' 0C87 
230 POKE 1403,40 : PRINT IV*" 

"NR*" Autre su i te (lent 

e)" A6D7 
235 POKE 1403,40 : PRINT IV*" 

P "NRt" LASER 1" 
240 POKE 1403,40 : PRINT IV*" 

G "NR*" LASER 2" 
245 POKE 1403,40: PRINT IV*" 

R "NR* n Suite de LASERS a 

scend.et descend." 
250 POKE 1403,40; PRINT IVS" 

S "NR*" "'"IV*" F 1 N 1 NR 



* 51 2F 

280 VTAB 19: POKE 1403,65: PR 
INT IV*"VGTRE CHOIX l"NR* 
" " CALL - 958: GET H* 
:H = ASC <H*> : PRINT H* 
290 IF H = 13 OR H ~ 27 THEN 

VTAB 19: GOTO 280 
300 ] F H < 58 THEN H = H - 48 5A8C 
310 IF H > 64 THEN H = H - 55 7E85 
320 IF H < 1 OR H > 35 THEN 

VTAB 19: 60TG 280 
330 ON H GOTO 500,510,520,530 
, 540 , 550 , 560 , 570 , 580 , 590 , 
600,610,620,630 ,640 ,650 ,6 
60 , 670 , 680 , 690 , 700 , 71 , 72 
,730 ,740 ,750 ,760 ,770 DA 2 7 

350 POKE 776, A: POKE 777,8; F 
OR I = 1 TO N: POKE 768,H 
A: POKE 769, DU: CALL 770: 
NEXT 0EAF 
355 G0SUB 390: BOSUB 380 
360 VTAB 22: POKE 1403,65: PR 
INT IV* "RETURN SVP"NR*;* 
":: GET H* 7D4E 
370 GOTO 280 2345 
380 VTAB 21: PRINT " POKE 777, 
" ;B;" :F0R 3 = 1 TO " ;5;" :P0 
KE 768," ;HA ; " ;POKE 769," j 
HA?" :CALL 770: NEXT " : RET 
URN AEF6 

390 VTAB 20: PRINT "SON obten 
u avec progr.B (LASER, A*3 
02,L*60) D ; 7EDD 

391 IF B = THEN PRINT " 
Faire ; "POKE 776, 23B 

puis " 8AEF 

392 IF 8 = 1 THEN PRINT " 
Faire :"~P0KE 776,206 

puis " 76EB 
395 RETURN 63B1 
400 POKE 776, A: POKE 777,8: C 
ALL AD: PRINT ■ "POKE 777 
;B;" : CALL " sAD: GOTO 3 
60 9F83 
410 POKE 776,A: POKE 777, B: P 
OKE 768,HA: POKE 769, DU: 
CALL 770: UTAB V D71 1 

420 PRINT " POKE 777," ;B;": PO 
KE 768 , " ; HA j " : POKE 769," 
;DU;" : CALL 770" : RETURN 
430 POKE 776 .A: POKE 777,8: F 
OR HA = HD TO HF STEP PAS 
: POKE 769, DU: POKE 768, H 
A: CALL 770: NEXT D635 
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BRUITACE 



431 VTAB 21 ; PRINT 



E 777, 



440 

445 
444 
460 

470 



"|Bj" : FOR HA-" ; HD ; * TO " 
; HF ; " STEP ";PAS;": POKE 
768, 4A :POKE 769,' ;DU;"sC 
ALL 770 : NEXT": GOTO 340 
POKE 776 ,A : POKE 777, B: P 
OKE 768, HA: POKE 769, DU: 
CALL 770: FOR K = 1 TO 50 
: NEXT : RETURN 
FOR K = 1 TO 200: NEXT : 
RETURN 

FOR 1=1 TO 50: NEXT : R 
ETURN 

PRINT " Voi r 1 i gnes 

630 et 440 du programme" 
: GOTO 360 

PRINT " Voir 1 ignes 

640,641,440,445 du progr 
anrne" ! GOTO 340 
PRINT " "" Voir 1 ignes 
650,651 ,446,950,960 et 9 
70 du programme": GOTO 36 


A = 238 :B = 0:HA = 0:DU = 
20 :N = 5: GOTO 350 
A = 238:B = 0:HA = 100:DU 
= 100:N = 4; GOTO 350 
A = 238.-B = 0:HA = 150 :DU 
= 150:N = 4; GOTO 350 
A = 238:B = 0:HA = 220 :DU 
= 220 :N = 6: GOTO 350 
A = 238:8 = 0:HA = 240:DU 
= 240:N = 6: GOTO 350 
A = 206:B ~ I : HA - : DU = 
240 :N = 2: GOTO 350 
A = 206:B = 1 : HA = 100:DU 
= 180:N = 3: GOTO 350 
A = 206 :B = 1 :HA = 50:DU 
- 220 :N = 4: GOTO 350 
A = 206:B = 1 rHA = 200:DU 
■ 100:N - 5: GOTO 350 
590 A = 206 :B ■ 1 :HA = 220 :DU 

600 



500 
510 
520 
530 
540 
550 
540 
570 



= 50:N = 6: 
A = 238:B = 



610 



620 



GOTO 350 
0:AD = 791 : P 
OKE 768,0: GOSUB 390: GOT 

400 

A = 238 :B = 0:AD = 804: P 
OKE 768,255: GOSUB 390: G 
OTO 400 

A = 238 :B = 0:AD = 821 : G 

OSUB 390: GOTO 400 

A = 206 :B = 1 :N = 5 : FOR 

1 = 1 TO N : HA = 100:OU = 
150: GOSUB 440: HA = 130:D 



FOB3 

A3C7 
7198 

D22B 

FOOF 

B75C 
C9FC 
EE8B 
EE95 
2C93 
5B97 
A429 
398E 
5B5E 
2C89 
E760 

A44D 

B4B4 
D653 



U = 100: GOSUB 440: GOSUB 
445: NEXT : GOSUB 390: GO 
TO 460 

640 A = 204;B = 1 :N = 5: FOR 
I = 1 TO N:HA = 130:DU = 
200; GOSUB 440 

641 HA = 85:DU = 150: GOSUB 4 
40:HA = 100:DU = 100: GOS 
UB 440: GOSUB 445: NEXT : 
GOSUB 390: GOTO 470 

650 RESTORE : POKE 776,206s P 
OKE 777,1 : FOR K = 1 TO 1 
8: READ HA: READ DU 

451 POKE 768, HA: POKE 769, DU: 
CALL 770: GOSUB 446: NEXT 
: GOSUB 390: GOTO 480 

460 A = 206:8 = 1 :AD = 817: G 
OSUB 390: GOTO 400 

670 A = 206:B = 1 :AD = 822: G 
OSUB 390: GOTO 400 

680 A = 206:B = 1 :HA = 4Q:DU 
= 180 :V = 21 : GOSUB 390 : 
GOSUB 410 :HA = 50:DU = 20 
0:U = 22: GOSUB 410: GOTO 
360 

690 A = 206:B = 1 : HA = 15:DU 

= 180:V = 21 : GOSUB 390: 

GOSUB 410: HA = 15:V = 22: 

GOSUB 410: GOTO 360 
700 A = 206:B = lsDU = 30:HD 

= 30:HF = 50:PAS = 2: GOS 

UB 390: GOTO 430 
710 A = 206:B = 1 :DU = 50;HD 

= 100:HF = 130: PAS = 3: G 

OSUB 390: GOTO 430 
720 A - 206:B = 1 :DU = 220 :HD 

= 50:HF = 70:PAS =6: GOS 

UB 390: GOTO 430 
730 A = 206:B = 1 :DU = 200:HD 

= 110:HF = 130: PAS ■ 6: G 

OSUB 390: GOTO 430 
740 B - 0: CALL 804: CALL 791 

: GOSUB 390: PRINT " CALL 
804 :"CALL 791": GOTO 36 



750 B ■ 0: CALL 791: CALL 804 
: GOSUB 390: PRINT " CALL 
791 : CALL 804" : GOTO 36 



760 B = 0: FOR I = 1 TO 3: CA 
LL 804: CALL 791 : NEXT : 
GOSUB 390: PRINT " FOR 1= 
1 TO 3: CALL 804: CALL 79 
1: NEXT" ; GOTO 360 



B1CB 

C6A5 

2CA4 

6AD3 

DB20 
D454 
5C50 



4A0F 



24DD 



4544 



A6A4 



357D 



AC05 



E996 



D296 



FBF2 
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BRUITAGE 



BAFO 



OEO? 
2345 



5C33 



770 PRINT : V/TAB 22: PRINT *C 
'est bien termine ? <0/N> 
■ ; i GET H*? PRINT H*; 

780 IF H* = "0" THEN POKE 6, 
0: FOR I = 1 TO 50:82 = 
PEEK (49200): NEXT | POKE 
1403,40: PRINT W VOUS 
AVEZ F1NI ? "NRS ; " . .ALORS 
. . .AU REVOIR" : END 

790 GOTO 280 

800 REM ======= QUELQUES EXP 

LIGATIONS ============ 

8J0 POKE 1403,29: PRINT JUS" 
QUELQUES EXPLICATIONS "NR 
*: PRINT 

820 PRINT " -Ce programme donn 
e 27 notes ou bruitages d 
ifferents : " LASER descend 
ant, montantpuis des note 
s, suites de notes ETC... 
d'une facon rapide ou plu 
s lente" 

830 PRINT : PRINT "-Quand you 
s aurez le MENU vous appu 
ierez sur une des touches 
indiquees et vous obtie 
ndrez non seulement le so 
n <ou bruitage) mais auss 
i (en bas de I'ecran)" 

840 PRINT "tous les elements 
qui vous permettront de r 
eproduire ce son ou bruit 
age, dans un programme BA 
SIC." 

870 POKE 1403,25: PRINT "Avec 
le progr. ' LASER' CA*302 
,L$60) on aura "IWUN<E) 



LASER ,A$0302 , L*0060 



4784 



6324 



<1E32 




"NR*: PRINT 

880 PRINT IWNOTE DE MUSI QUE 
"NR* P si POKE 776,206:PO 
KE 777,1 .-POKE 768,HA:P0KE 
769 ,DU : CALL 770" 

890 POKE 1403,21: PRINT -, En 
•faisant varier HA (hauteu 
r de la note) et DU <sa d 
uree)on obtiendra des";: 
PRINT ' notes di-fferentes 
,<HA et DU sont inferieur 
s tous deux a 256) . " i 



891 



900 



901 



920 



930 
950 



960 



970 



IV*" LASER D 
1 si "POKE 
777,0: CALL 



IV* 

s i 



1 LASER A 
"POKE 7 
CALL 7 



PRINT "Onpourra ainsi con 
struire de petites melodi 
es.§" 

PRINT : PRINT 
ESCENDANT"NR*' 
776,2381 POKE 

770" 
PRINT : PRINT 
SCENDANT'NR*" 
76,2Q6:P0KE 777,0 ; 
70" 

UTAB 21 : POKE 1403,40 : PR 
INT "RETURN pour le MENU 

GET H$ : PRINT 
RETURN 

DATA 172,32,172,64,172,32 
,128,128,128,128,115,128, 
115,128 

DATA 86,128,102,64,128,64 
,128,32,102,64,128,32,152 
,128 

DATA 96,255, 115, 64,144,32 
,128,255 




6164 



021A 



8833 



Dl 1A 



2AE3 



A076 



7F87 
63B1 



DA91 

FIFA 
B1F8 



0302: 


AD 


30 


CO 


88 


DO 


05 


EE 


00 


03 


F0 


09 


CA 


DO 


F5 






8573 


0310: 


AE 


00 


03 


4C 


02 


03 


60 


A9 


EE 


8D 


08 


03 


A9 


00 


8D 


09 


15D0 


0320: 


03 


4C 


02 


03 


A9 


CE 


8D 


08 


03 


A9 


00 


8D 


09 


03 


4C 


02 


D4F3 


0330: 


03 


A9 


EE 


3D 


08 


03 


A9 


01 


80 


09 


03 


A9 


6E 


8D 


00 


03 


D81C 


0340: 


A9 


40 


8D 


01 


03 


4C 


02 


03 


A9 


EE 


A9 


EE 


8D 


08 


03 


A9 


4A3A 


0350: 


01 


8D 


09 


03 


A9 


82 


8D 


00 


03 


A9 


50 


8D 


01 


03 


4C 


02 


DF2D 


0360: 


FF 


FF 
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ProDOS 



Serge BENYAMIN 



CESTION 




MENUS 



GQStiOn tie ItienuS est un module utilisa- 

ble dons n'importe 
quel programme BASIC- II permet de generer 
des menus sous forme de fiches qui se superpo- 
sent. Les selections seffectuent par deplace- 
ment d un curseur (en mode inverse), grace oux 
fleches (validation par la louche Return, avec 
possibility de revenir, a tout moment, en arriere 
grace a la touche Esc). 

Pour cela, il faut employer deux routines distinctes : 
• La premiere serf 6 configurer I'arborescence 
ainsi que le contenu des differents menus. 

■ La seconde est directement exploitable dans 
un programme BASIC (elle gere I'arbores- 
cence prealablement sauvegardee sous la 
forme d'un fichier de variables (VAR)). 

Configurotion : - un Apple // (+, e r c gs;i 

— Minimum 48 Ko 

- Prodos (8 ou 16). 



Routine de configuration 



II foot d'abord remplir les DATA de la fa<;on 
suivante : 

(Numero de ligne) DATA (Nom de la fiche), 
(Nom de la premiere option), (Configuration 
de la premiere option), (Nom de la seconde 
option), (Configuration de la seconde option), 
Fin de la fiche, 

(Numero de ligne) 

C'est un numero laisse a votre initiative. 
Attention : chaque fiche declaree est repe- 
ree par un numero (une fiche commence a la 
declaration de son nom et finit quand le pro- 
gramme rencontre Fin de Fiche), Ce numero 
depend du nombre de fiches deja creees. 



Ainsi, la premiere fiche aura le numero 0, la 
suivante le numero 1 et ainsi de suite, Ceci est 
tres important pour indiquer I'arborescence 
des differents menus. 

(Nom de la fiche) 

II s'agit du texte qui sera inscrit au debut de la 
fiche. 



I Nom 6e ta fiche) 



(Nom de loption) 

Cette zone correspond au libelle inscrit pour 
chacune des options composant la fiche. 



(Nom de la fiche) 



1 ) — (Nom de ('option I ) 

2 )- (Nom d« ('option 2) 

3 ) — (Nom de ('option 3} 



(Configuration de loption I 

On fournit au programme qui va gerer les 
options les renseignements necessaires, 
c est-d-dire ; 

• Le numero du menu precedent (si Ton tape 
sur (Esc) pour revenir). 

• Le numero du menu suivant, Ainsi, il affi- 
chera en le decalant le menu suivant (si il 
en existe effectivement un). 

• Le numero qui caracterisera I'option choi- 
sie. Si aucun menu ne suit, c'est que Ton 
est arrive a une option directement execu- 
table. On retournera alors ce numero au 
programme qui a appele le sous- 
programme de gestion de menus, et celui- 
ci pourra agir en consequence, (suite page 8) 



TREMPL1N MICRO 



7 



Toutes ces informations sont stockees de la 
maniere soivante : 

• Les deux premiers chiffres indiquent le 
numero qui caracreTise I'option (si ce n'est pas 
une option directement executable : 00). 

• Les deux suivants indiquent le numero de la 
prochaine option (si ceJIe-ci n'existe pos : 00). 

• Les deux demiers correspondent au numero 
du menu precedent (comme pour les autres, il 
faut mettre 00 s'il n'y a pas de menu qui 
precede) . 

Attention ; chacun des nombres caracterisant 
les options comporte obligatoirement deux chif- 
fres : 01 , 09 r etc. 

Exemples : 

1000 DATA Demonstration r Gestion du disque, 
0001 00, Affichage du catatogue r 010000,Sortir 
du programme,020000/ r Fin de fiche" 

1010 DATA Gestion du disque,Affichage de la 
place libre,030000,Affichage partiel du catalo- 
gue J 000200/'Fin de fiche" 
1020 DATA Catalogue, Liste des programmes 
Basic,040001,Liste des fichiers textes.050001 , 
"Fin de fiche". 



On aura done : 

• un menu principal s'oppelant Demonstration, 

• des options directement executables (Affi- 
chage du catalogue, Sortir du programme, 
Affichage de la place libre, Liste des program- 
mes Basic, Liste des fichiers textes) qui don- 
neront a OP les valeurs suivantes : 01 , 02, 03, 
04, 05, 

• des options qui brancheront sur d'autres 
menus tels que : Gestion du disque, Affichage 
partiel du catalogue... 

Remarque : il est preferable d'encadrer Fin de 
fiche de guillemets afin d'eviter toutes insertions 
d'espaces qui pourraient perturber le fonction- 
nement du programme. 

L execution du programme : 

Elle initialise un tableau OP$() a trois dimensions 
qui sera sauve sous le nom que vous lui donne- 
rez, sous forme dun fichier de variables, grace a 
I instruction STORE de PRODOS. 

Ce fichier sera ulterieurement exploits par une 
sous-routine Basic que vous inclurez dans votre 
propre programme. 



CONFIGURATION 

100 RESTORE :NL = 0:NC = 0:TT = 

110 ONERR GOTO 200 

120 READ AftiNC = NC + 1 

140 IF NC > TT THEN TT = NC 

150 IF A* = "Fin de -fiche" THEN NL = NL + 1 :NC = 
160 GOTO 120 

200 ONERR GOTO 300 

201 DIM 0P*(NL - 1, INT CTT / 2) - 1,1) 
210 RESTORE J I ■ OsJ = 1 

230 READ OP$<I,0,1): REM Initialisation du litre 
240 READ A* 

250 IF A* < > "Fin de fiche" THEN QP*<I,J,0> = A$ : READ 0P$<I,J,1):J = 
J ♦ 1 i GOTO 240 

260 IF AS = "Fin de fiche" THEN A* - "000" * STR* <J - 1 > :A* = RIGHTS 

CAS, 4) :0PS<1 ,0,0) = A*:J =1:1=1+1: GOTO 230 
300 INPUT "Nom du fichier a sauuegarder : "?AS: PRINT CHRS (4);"ST0RE 

" ;AS 

10000 DATA Demonstrat ion ,Gest i on du d i sque , 000 100 ,Af f i chage du catalogue, 

010000 , Sort i r du programme ,020000 , "F i n de fiche" 
10010 DATA Gestion du dt sque ,Aff i chage de la place 1 i bre ,030000 ,Aff i chage 

partiel du catal ogue , 000200 F i n de fiche" 
10020 DATA Catal ogue , Li ste de programes BASIC,040001 ,Li ste des fichiers t 

extes, 050001 ,"Fin de fiche" 



592F 
69E2 
141 1 
1482 
C0B7 
113E 
9<4E3 
167A 
51 B6 
6C9D 
CAEC 

6626 

828F 

4285 

908F 

798E 

FCEB 
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Routine geran t les menus 



Cast un sous-progromme que vous insererez 
dans voire propre programme. Vous accomplirez 
les operations suivantes : 

1. Dabord, avant meme d'effectuer vos initia- 
lisations de tableaux et de variables, en 
debut de programme, vous devrez rechar- 
ger le fichier VAR que vous aurez configure 
prealablement, grace a RESTORE suivi du 
nom du fichier. 

Exemple : PRINT CHR$(4);"RESTORE OPTIONS 

2. Ensuite, il faudra initialiser les variables, ce 
qui vous permeftra d adapter le mieux pos- 
sible ce programme d vos besoins : 

ME = : Pour vous positionner sur le premier 
menu. 

HT : Position horizontale du coin gauche. 
VT : Position verticale du meme point. 
Fl : Longueur de la fenetre. 
F H : Hauteur de la fenetre. 

Attention : ce sous- programme utilise les 
variables suivantes ; 

Tl$ : pour le titre, I, PC, AAA, MX, CL, OP. 



G fE ST" I ON D I 



MEM US 



10 
20 
30 
40 
50 
60 
70 
80 
39990 
39991 
39992 
39993 
39994 
39995 
39996 
39997 
40000 
40010 



93 Bd de la made 1 e 1 e i ne 
06000 Nice 
Tel : 93-86-57-70 



REM 

REM Programme de gesti 
REM Propose par 8 EN YAM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM par 
REM par 
REM par 
REM par 
REM par 
IF LEN 



on de fenetres 
IN Serge 



Sous programme qut 
1 e menu 

On lui passe les r 



if f ichi 



Vous n'aurez plus alors qu r d faire un : 
60SUB 41000 

Vous recupererez le numero de l option 
grace a la variable OP en fonction de 
laquelle vous pourrez faire des bran- 
chements. 

Exemple : ON OP GOSUB 1000,2000,3000 



Explications du sous-programme 



se divise en deux parties : 

De 40000 a 40070, c'est le sous- programme 
qui affiche (en fonction des parametres) une 
fenetre en forme de fiche. II pourra ulterieu- 
rement etre appele par le programmeur inde- 
pendamment de la gestion du menu en 
sachant que Tl$ contient le titre de !a fenetre. 
Si ce dernier est une chame vide, la fenetre 
deviendra un banal rectangle. 

De 41000 a 41 130, c'est le sous-programme de 
gestion qui affiche la fenetre, les options et 
permet I'enchaTnement des deux et la gestion 
du curseur. 



comment verifier la saisie 
de vos programmes 
(Basic ou LM) 7 

Tout simplement en vous offront notre disquette 
SIGNATURE (bon de eommande p. 68), 



HTAB HT 
: PRINT 
40020 HTAB HT 
40030 FOR I = 

NEXT 
40040 FOR I = 
VT + I : 



: HT -> Posi t 

: VT -> Posi t 

: FL -> La Ion 

: FH -> La hau 

: 11% ->Le Tit 
m$) = THEN 

+ 1 : VTAB VT : 

VTAB VT + 1 

1 + LEN CTI-t) 

2 TO FH - (VT 
PRINT ■ ! u i SPC 




ense i gneme n t s 
on Horizontale 
on Verticale 
geur de la fenitre 
teur de la -fenetre 
re de la -fenftre 

HTAB HT 4 I : VTAB VT + 1 : GOTO 40030 
FOR I = 1 TO LEN <TI*J + 2: PRINT ■_" ; j NEXT 

PRINT " ! " ;TI$;" ! " ; 
+ 3 * < LEN <T1*) < > 0) TO FL: PRINT u _" ; : 



+ FH - 21) * <21 < = VT 4 FH) : HTAB HT : VTAB 
< FL); - ! 



81EC 

C2E8 
2F21 

9C44 

3995 
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CESTION DE MENUS 



40050 NEXT 0582 
40040 UTAB UT + FH - CUT + FN - 2 1 > * (21 < = VT * FH) ♦ 1 : HTAB HT : PR! 
NT ■!*!! FOR I = 1 TO FL: PRINT '_" ; : NEXT : PRINT "« PRINT SP 



C( 159) 
40070 RETURN 
4098? REM 

40990 REM II permet d'af f i cher la suite de menu 

40991 REM jusqu'a 1'obtention d'un menu executable 

40992 REM IT a dans 0P*(X,Y,Z) toutes les infos necessaires 

40993 REM II suffit de lui passer par ME le numero 
40998 REM du menu a executer 




B0FE 
6381 



40999 REM 

41000 PC - UAL ( LEFT* ( QP*(ME ,0 , > ,2) ) :MA = INT <<FH + 2 - < UAL < RIG 



HT* (QP*(ME,0,0) ,2)))) / 2) + 1 :TI* = 0P*(ME , , 1 ) :MX = UAL ( RIGHT 
* <OP*(ME,0,0) ,2)) - Is GOSUB 40000 E83C 
41010 FOR I - TO MX: IF I = PC THEN INVERSE 

41020 HTAB HT + 10s UTAB UT + MA + I: PRINT I + 1 ;")-"; 0P*(ME , 3 + 1,0): N 

ORMAL D7D5 
41030 NEXT 0582 
41040 CL = PEEK (49152): IF CL < 128 THEN 41040 

41050 POKE 49148,0 :CL = PEEK (49152) 4EF2 
41060 IF CL = 08 OR CL = 11 THEN GOSUB 41200 :PC = PC - 1 :PC = PC * (PC > 

= 0) 4 MX * (PC < 0) : GOSUB 41300: GOTO 41040 052 1 

41070 IF CL = 10 OR CL = 21 THEN GOSUB 41200 : PC = PC + J: PC = PC * (PC < 

= MX): GOSUB 41300; GOTO 41040 1175 
41080 IF CL > 48 AND CL < = MX + 49 THEN GOSUB 41200: PC = CL - 49i GOSU 

B 41300: GOTO 41040 6FDB 
41090 IF (CL = 27 OR CL = 9) AND ME < > THEN ME = UAL ( RIGHT* (OP*(M 

E,PC + 1,1),2)):HT = HT - 2;UT = UT - 2: GOTO 41000 1F7A 
41100 IF CL < > 13 THEN 41040 

41110 IF UAL ( MID* (0P*(ME,PC + 1,1>,3,2)> = THEN OP = UAL < LEFT* ( 

OP* (ME, PC + 1,1) ,2)): RETURN 7F3C 
41120 IF PC < 10 THEN OP*(ME f 0,Q) = "0" 

41122 OP*(ME,0,0) = OP*(ME,0,Q) + STR* (PC) 061C 
41124 IF MX + 1 < 10 THEN OP*(ME,0,0) = OP*(ME,0,0) + "0" 

41 126 0P*(ME,0,0) = OP*(ME,0,0) + STR* (MX + 1) EF27 
41130 IF ME = UAL < MID* <0P*(ME,PC + 1,1) ,3, 2)) THEN 41160 C7B8 
41140 ME = UAL ( MID* (OP*(ME,PC + 1 , 1 ) , 3 , 2) ) : HT = HT + 2:UT = UT + 2 
41150 GOTO 41000 3EA0 
41160 GOTO 41010 

41200 HTAB HT + 10: UTAB UT + MA 4 PC: PRINT PC + 1 ;")-"; QP*(ME , PC + 1,0) 

! RETURN 9BC7 

41300 HTAB HT + 10: UTAB UT + MA + PC: IMMERSE : PRINT PC + 1 j ' )«" ; OP* (ME 

,PC + 1,0) s NORMAL : RETURN 4476 



Vous programmes en Basic : tres bien ! 



t at/sst a concevoir de petites routines en langage machine. C'est un jeu absolu- 

ment passionnant ! Les petits recueils de TREMPUN MICRO (4 volumes parus, avec dis- 
quettes) vous fourniront de multiples exemples commentes (bulletin de commande p. 68). 
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GE5TI0N DE MENUS 



STARTUP-MENU 



voici un exemple complet, 
en suivant les directives de I 




10 REM 

20 REM Programme de gestion de fenetres 
30 REM Propose par BENYAMIN Serge 
40 REM 

50 REM 93 Bd de la madeleleine 
60 REM 06000 Nice 
70 REM Tel : 93-86-57-70 
80 REM 

100 PRINT CHR* <4>s"CLQSE" 
110 TEXT : PRINT CHR$ (4); ,, PR£3" 
120 PRINT CHRS < 4 > 5 "RESTORE OPTIONS" 
125 FL = 65:FH = 11 

270 ME = OsHT = 2iVT = 2; HOME : PRINT 
290 G0SU8 41000 

300 ON OP GOSUB 1 00Q , 2000 , 3000 , 4000 ,5000 
310 GOTO 290 

990 REM 

991 REM Sous programme d' a* 4 i chage du catalogue 

992 REM 

1000 UTAB li PRINT CHR* <4) ; "Pref i x" : INPUT NO* 

1030 HT = HT + 2:UT = VT + 2:TI* = "A+"+" i chage du catalogue " + NO*: G0SU 
B 40000 

1040 RE* ■ ■*! GOSUB 6000: RETURN 

1990 REM 

1991 REM Sortie du programme 

1992 REM 

2000 HOME ; HTAB 10: UTAB 10: PRINT "Programme de presentation, Merc i et 

au reuo i r " : END 
2990 REM 

2992 REM Alienage de la place litre sur 1e disque 

2993 REM 

3000 VTAB 1: PRINT CHR* < 4) ; " Pref i x " : INPUT NO* 

3030 HT = HT + 2:UT - UT t 2:TI* - "A-F-f i ch age de la place 1 ibre ": GOSUB 
40000 

3040 PRINT CHR* C4);"0PEN '* ;NO* ; " ,TDIR" : PRINT CHR* < 4) ; "READ ";N0*:I 
= 

3050 UTAB 1 : INPUT At: IF A$ = THEN 1=1+1 
3060 IF 1 = 2 THEN 3100 
3070 GOTO 3050 

3100 INPUT A*: HTAB HT + 5: UTAB UT + 5: PRINT "II mous reste " ; UAL ( M 

ID* (A*,15 t 3»|" Ko sur la disquette"} 
3110 POKE - 16368,0 

3115 A = PEEK ( - 16384): IF A < 128 THEN 3115 

3320 POKE - 16368,0: PRINT CHR* (4) ; " CLOSE" jNtosHT = HT - 2:UT = UT - 
2: RETURN 

3990 REM 

3991 REM Alienage des programme BASIC 

3992 REM 

4000 UTAB 1: PRINT CHR* < 4) ; "Pre-f i x ' : INPUT NO* 

4030 HT = HT + 2:UT = UT + 2:TI* = "Liste des programmes BASIC : GOSUB 4 
0000 

4040 RE$ = " BAS" : GOSUB 6000: RETURN 

4990 REM 

4991 REM A-ffi chage des Fichiers Textes 



realise 
auteur. 



641B 
F760 
3015 
26C7 
BC15 
12A5 
5D82 
2946 



85FF 

04CC 
EB6A 



745E 

85FF 

B13E 

0A6B 
EC75 
B480 

6173 

2CE7 
40E6 
4F35 

84B8 

85FF 

F363 
0F40 
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CESTION DE MENUS 



5000 UTAB 1: PRINT CHRS (4) ; " Pre-f i x " : INPUT NO* 85FF 
5030 HT = HT + 2:UT ■ UT + 2:TI* = "Liste des Fichiers Texte": 60SUB 400 

00 93DB 
5040 RES = "TXT": GOSUB 6000; RETURN 686A 

5990 REM 

5991 REM Module d'a-f -f i chage du catalogue 

5992 REM 

6000 PRINT CHR* (4>j"0PEN 1 ;NQ$ ; " ,TDIR" : PRINT CHR* <4);"READ ■ ;NM : 1 

= o 0A6B 

4010 FOR J = TO 2: INPUT A*: NEXT : REM On saute le debut 

6020 UTAB i: INPUT A$: IF A$ = " M THEN 6200 

6030 IF RE$ = "" THEN 6050 

6040 IF MID* (A*,18 t 3) < > RE$ THEN 6020 

6050 UTAB UT + 3 + I : HTAB UT + 5: PRINT MID* (A*, 2,15); 

6060 1=1+1 

6070 IF I > FH - 4 THEN 6300 A9DD 
6080 GOTO 6020 

6190 REM 

6191 REM Si on est a la -fin du catalogue 

6192 REM 

6200 UTAB UT + FH: HTAB HT + FL - 10: PRINT " " 43A5 
6210 POKE - 16368,0 

6220 A = PEEK < - 36384): IF A < 128 THEN 6220 

6230 POKE - 16368,0: PRINT CHR* ( 4) ; "CLOSE" ;ND*:HT = HT - 2:UT = UT - 

2: RETURN 8468 
6290 REM 

6292 REM Si Ton est a la -fin de la fenetre 

6293 REM 

6300 UTAB UT + FH: HTAB HT + FL - 10: PRINT "../.."; 
6310 POKE - 3 6384,0 

6320 A = PEEK < - 16384): IF A < 128 THEN 6320 2736 
6330 POKE - 16368,0: FOR 1=0 TO FH - 4: HTAB HT + 5: UTAB UT + 3 + I : 

PRINT SPC< 15) ; : NEXT 
6340 1 = 0: UTAB UT + FH: HTAB HT + FL - 10: PRINT " ";: GOTO 6020 

39990 REM Sous programme qui a-f-fiche 

39991 REM le menu 

39992 REM On lui passe les rense i gnemen ts 

39993 REM par : HT -> Position Horizon tale 

39994 REM par : UT -> Position Uerticale 

39995 REM par : FL -> La longeur de la fenetre 

39996 REM par : FH -> La hauteur de la fenetre 

39997 REM par : TI$ ->Le Titre de la fenetre 

40000 IF I EN <TI$) = THEN HTAB HT + ! : UTA8 UT + 1 : GOTO 40030 

40010 HTAB HT + 1 ; UTAB UT : FOR I = 1 TO LEN (TI$) + 2: PRINT "_" ; : NEXT 

: PRINT C2E8 
40020 HTAB HT : UTAB UT + 1 : PRINT " ! " ;TI* ; " ! " ; 

40030 FOR I = 1 + LEN <TI*> + 3 * ( LEN <TI*) < > 0) TO FL : PRINT "_■ ; : 
NEXT 

40040 FOR I = 2 TO FH - CUT + FH - 21) * (21 < = UT + FH) : HTAB HT: UTAB 

UT + I: PRINT " ! " ; SPCC FL);"! 
40050 NEXT 0582 
40060 UTAB UT + FH - (UT + FH - 21) * (21 < = UT + FN) ♦ 1 : HTAB HT: PRI 
NT *!";: FOR I = 1 TO FL: PRINT NEXT : PRINT V " " : PRINT SP 

C( 159) BOFE 



3995 
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CESTION DE MENUS 

40070 RETURN 

40989 REM 

40990 REM II permet d'a-f-Ficher la suite de menu 

40991 REM jusqu'a 1'obtention d'un menu executable 

40992 REM II a dans GP*<X,Y,Z) toutes Tes infos n^cessaires 

40993 REM II su-f-fit de lui passer par ME le numero 
40998 REM du menu a ex^cuter 




40999 REM 

43000 PC = UAL < LEFT* < QP*<ME ,0 , > , 2> > :MA = INT ((FH + 2 - < UAL < RIG 



HT* <OP*<ME,0,0) f 2))>> / 2) * 1;TI* = OPf <ME ,0 , 1) :MX = UAL ( RIGHT 
% <OP*<ME,0,0) ,2)) - Is GOSUB 40000 
41010 FOR I = TO MX: IF I = PC THEN INVERSE 

41020 HTAB HT + 10: UTAB UT + MA + I : PRINT I + 1 ;■)-" ; 0P*(ME , J + 1,0): N 

ORMAL D7D5 
41030 NEXT 

41040 CL = PEEK (49152) s IF CL < 128 THEN 41040 

41050 POKE 49168, 0:CL = PEEK C49152) 4EF2 
41060 IF CL = 08 OR CL ■ 11 THEN GOSUB 41200 :PC = PC - 1 :PC = PC * (PC > 

= 0) + MX * (PC < 0): GOSUB 41300: GOTO 4104Q 
41070 IF CL = 10 OR CL - 21 THEN GOSUB 41200 :PC = PC + 1 :PC = PC * (PC < 

- MX) ! GOSUB 41300s GOTO 41040 1175 
41080 IF CL > 48 AND CL < = MX + 49 THEN GOSUB 41200:PC = CL - 49: GOSU 

B 43 300: GOTO 41040 
41090 IF (CL = 27 OR CL = 9) AND ME < > THEN ME - UAL ( RIGHT* <0P$<M 

E,PC + 3 ,1),2)):HT = HT - 2:UT = UT - 2: GOTO 41000 
41100 IF CL < > 13 THEN 41040 

41110 IF UAL ( MID* <0P*<ME,PC + ljl)^^)) = THEN OP = UAL ( LEFT* ( 

OP*<ME,PC ♦ 1,1), 2)): RETURN 
41120 IF PC < 10 THEN QP*<ME,0,0) = "0" 
41122 OP*<ME,0,0) = OP*<ME,0,0) + STR* (PC) 

41124 IF MX + 1 < 10 THEN OP$(ME,0,0> = OPf (ME, 0,0) + "0" CE09 

41124 OP*(M£,0 r 0) = OP*CME,0,Q) + STR* (MX + 1) 

41130 IF ME = UAL < MID* (OP*(ME,PC + l,l) f 3,2)) THEN 41160 

41140 ME = UAL ( MID* <0P*CME,PC + 1,1) ,3,2)) : HT = HT + 2:UT = UT + 2 

41150 GOTO 41000 3EA0 

41160 GOTO 41010 38A1 

41200 HTAB HT + 10: UTA8 UT + MA + PC: PRINT PC ♦ 1 ;")-"; 0P*<ME , PC + 1,0) 

: RETURN 9BC7 
41300 HTAB HT + 10: UTAB UT + MA + PC: INUERSE : PRINT PC + 1 j " ) ; OP*<ME 

,PC + 1,0): NORMAL : RETURN 4476 



LES GUIDES ESSENTIELS : Une collection virgamarabout 



Les utilisateurs de PC et compatibles apprecieront certairtement les petits guides qui viennent de parattre 
dans !a collection VIRGA/MARABOUT. lis presentent en effet, sous une forme simple et pratique, mais avec 
une grande clarte, toutes les commandes utilisees par les langages et progiciels best-sellers de I'informatique. 

Un exemple accompagne parrots I'enonce de la commande. C'est en quelque sorte, I'exemple joint au 
precepte, comme le disent les publicites d'une celebre Ecole par correspond a nee. 

Notons, parmi les dernieres parutions: MS-DOS, GW.BASIC, TURBO PASCAL et dBASEIII. De tres 
bonnes Editions de poche ! ci. r. 



TREMPLIN MICRO 
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APPLE HCS 



)oel DESNOUES 

MULTI-IMAGES 



OPTIONS 

1. Recuperer I'ecran SHGR (pratique en cas 
d'utilisation de THGS ou en cas de Reset de 
programmes affichant en SHGR, un reboot 
par Prodos n'effacant pas I'ecran SHGR 
contrairement aux ecrans HGR qui contrai- 
gnaient a depiacer I'ecran pour ne pas 
I'ecraser lors du reboot). 

2. Charger une image (Type $C1 ou BIN et 65 
Blocs uniquemenr). 

Apres visualisation (ligne 120), vaus pouvez : 

— soit diviser cette image par quatre et la sauvegarder, 

— soit sauver I'image originale. 

Pour la division, le principe est simple (lignes 
1 40, 160). Je transfere uniquement les octets 



correspondent aux pixels de I'ecran, sans lineari- 
ser (ligne 140). Ensuite, j'al ameltore, car pour le 
retour, j'obtenais a I'origine une image dont la pre- 
miere moitie etait bonne mais dont la deuxieme 
presentait un decalage. Done, je transfere cette l er 
moitie en E1/2000.E1/5E7F (145,150), puis en 
E1/5E80.E1/9CFF (160). Ensuite, je supprime les 
lignes 150 et 1 60 pour voir la difference. 
Ce processus permet de garder intacts la 
palette et le SCB. II peut etre repete x fois, 
l image etant alors divisee par puissance de 
quatre : 1/4/16/256... mais le resultat devient 
illisible au deld de 16. 

Le reste du programme est la mise en forme, la 
sauvegarde et le traitement d'erreurs. La routine 
en LM est "connue" et fait appel uniquement a 
MVN dont on modifie les parametres. 



1 VID = PEEK <49193):NV = 65: POKE 6,V1D: POKE 49193, Wi GOSUB 500 
5D$= CHR* <4): PRINT CHRS (17): ONERR GOTO 1000 2983 
10 HOME :T = 5: UTAB T: HTAB T: PRINT " 1 -ctG Recuperer I'ecran SHGR" : 

VTAB T + 4: HTAB T: PRINT -2-cJG Charger une image SHGR" 3A57 
20 VTAB T + 8: PRINT "Yotre choix -> ";: GET X* A0B3 
30 ON X$ = "1" GOTO 120: ON X* < > "2" GOTO 255: GOTO 100 

40 UTAB T + 3: HTAB T: PRINT "Sauvegarder cette image ? 0/N " ; s GET X* 9DB8 

50 ON X$ = "0" GOTO 200: GOTO 255 
100 PRINT : PRINT : PRINT DVCAT" 5326 
105 PRINT : PRINT "Images Type *C1 Ou Bin et 65 Blocs"! PRINT s INPUT ■ 

NomctG — > " ;NM* 2A0F 
110 T* = ■BIN": ON NM$ = °" GOTO 275 3E6F 
115 PRINT D*"BL0AD ,, NM* ,, ,T"T*" ,A*1000 B : CALL 768 01C4 
120 POKE 49193,163: GET X*: POKE 49193, W F1C8 
125 HOME : VTAB T : HTAB T: PRINT "Diviser V image 0/NctG "?: GET X$ 
130 ON X* < ) "0" GOTO 40 6F72 
140 POKE 49193,1: POKE 781,124: GOSUB 530 4BF8 
145 POKE 49193,97: POKE 775,32: POKE 778,16s POKE 783,225s POKE 784,0 
150 POKE 780,127: POKE 781,62: CALL 768 38B0 
160 POKE 774,128: POKE 775,94 1E51 
165 CALL 768: POKE 49193,161: GET X*: POKE 49193, NY 
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170 HOME : VTAB T: HTAB T: PRINT "Dingue . . .IMon ?" 

175 PRINT : PRINT : PRINT "Sauuegarder cette Version 0/NcJ_G ■ ; : GET X$ 
1B0 ON X$ < > "0" GOTO 255 

200 VTAB 13: PRINT : INPUT "Nom de 1'iraagecJG " ;NM*: PRINT : PRINT "Uni 

te 1 de sauvegarde" 
205 PRINT : INPUT "cJG " " Slot -> " ;S* 
210 PRINT : INPUT "ctB Drive -> ";L$ 

215 RESTORE 

220 GOSUB 500: G0SUB 530;D$ = CHR* <4) : PRINT DV'PREFIX" : INPUT PFIX* 

225 PRINT DVPREFIX, 5" SV , D"L$" 

230 PRINT D*" CREATE "NM*" ,T$C1 ' 

235 PRINT DVB SAVE *NM$ B ,T$C1 ,A$1 000 ,E$8FFF" 

240 PRINT D-t'CAT' 

250 PRINT D*"PREFIX"PFIX* 

255 X = PEEK (6>: POKE 4?193,X 

260 RESTORE : PRINT : PRINT : VTAB 22: PRINT "<1> ENCORE <2> MENU <3> F 

IN ";: GET R* 
265 ON VAL <R$> GOTO 1,270,275 
270 REM **# 

275 HOME : PRINT "Au revoi r . . . " : PRINT : END 

500 FOR ADR = 768 TO 788: READ J: POKE ADR, J: NEXT : RETURN 

510 DATA 139,24,251 ,194,48,160,0,32,162,0,36,169,255,127,84,225,0 

520 DATA 56,251,171,96 

530 POKE 775,16; POKE 778,32: POKE 783,0; POKE 784,225; CALL 768: RETUR 
N 

1000 BUG = PEEK <222)! POKE 222,0: ON BUG = 13 GOTO 1020: ON BUG = 19 G 
OT0 1030 

1010 PRINT 'Erreur IN0P1NEE . . , " : END 
1020 T* = "*C1" : GOTO 115 

1030 PRINT ; PRINT "Cette image ex i ste deja" : PRINT : PRINT "D*truire 1' 

aneienne 0/N "ji GET X$ 
1040 ON X* = "0* GOTO 235: GOTO 250 



300 : 


8B 






PHB 




jEmpile registre Bant de donn^es 


301 : 


18 






CLC 




; passage en mode nati-f 


302: 


FB 






XCE 






303: 


C2 


30 




REP 


£30 


; Pur A,X,Y sur 16 Bi ts 


305: 


AO 


00 


20 


LDY 


£2000 


;AdrL,AdrH Destination 


308: 


A2 


00 


10 


LDX 


£1000 


;AdrL,AdrH Source 


30B: 


A9 


FF 


7F 


IDA 


£7FFF 


jNombre d'octets a tran-fe>er 


30 E: 


54 


El 


00 


MVN 


00E1 


;Bank Dest - Bank Source 


311 : 


38 






SEC 




; Re tour au mode Emulation 


312: 


FB 






XCE 






313: 


AB 






PLB 




jRe'cupere Banc de donntes origine 


314: 


60 






RTS 




:Retour 



ROUTINE 
LM 

incorporee 



Pages 25 et 26, vous trouverez aussi une autre batterie de programmes 

de Joel DESNOUES : 

FORM ATACE 3,5 et CREATION DU BLOC O 
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UN LIVRE 

CAPITAL 




Systems ProDOS 1 6 de I' Apple IIGS est un manuel de reference de haul 
niveau destine aux programmeurs "hobbyistes" sur Apple IIGS. II brosse 
un tableau complet des principes de base des systemes ProDOSS et Pro- 
DOS16 qu'il est souhaitable de connaitre, puis sattaque aux notions ele- 
mentaires pour terminer par les commandes MM. Vous apprendrez, dans 
un premier temps, a vous familiariser avec les notionb fondamentales 
indispensobles a la moitrise du systeme, en mettant I 'accent sur I'environ- 
nement Hardware et Software de ProDOS16. Puis, apres avoir detaille les 
nouveaux protocoies etablis par Apple Computer, vous saurez faire la dif- 
ference entre Jes diverses structures de chaque systeme ProDOS, et vous 
saurez ce que represente le Boot d'un disque systeme. Des listings com- 
plets et detailles sont presented dans ce livre pour la premiere fois : Reset 
Hardware Handler, ColdStart, routine complete du Bootstrap, et pour f inir, 
!a routine de chargement du systeme ProDOS (systeme Loader blocs $00 
et SOI du disque). 

Enfin, les differentes entrees possibles de chaque table des matieres 
seront developpees : entrees d'un Volume Directory Header, d'un Volume 
SubDirectory Header, et d'un nom de fichier. La gestion des fichiers sera 
abordee sons detour, mettant I'accent sur le traitement et les different? 
types de fichiers. 

Pour terminer, une large part sera faite oux commandes Mil du systeme 
ProDOS16, en troitant chaque 
commande en detail. Le champ 
de choque table des parome- 
tres (Parameter Block) d'une 
commonde vous sera explique, 
et la syntaxedevoilee. 

ProDOSS, systeme d'exploita- 
tion de la generation des pro- 
cesseurs 8 bits, est totolement 
compatible avec ProDOS 1.1.1. 

ProDOSIS, systeme d'exploita- 
lion de la nouvelle generation, 
traite en totalite les instruc- 
tions du microprocesseur 
65C816, vral 16 bits, II est parti- 
culierement destine a I'Apple 
IIGS, dernier-ne' d'Apple 
Computer. 

Edition* du P.S.I. 

5 place du G>W/ fobron 750 \0 PARIS 




SYSTEM ProDOS 
DE L' APPLE IIGS 




PAS D ACCORD 



Franqois GALLET a mis plusieurs de 
nos lecteurs en colore... parce que 
son AMPERCMD ne respecfe pas les 
regies de ProDOS. 

Vrai ou faux ? Si on met 55 END dans 
le programme Basic et que Ton tope 
ensurte un RUN, puis un CAT, on ne 
trouve plus la routine en $8000. 
Un remede : s'offrir une ligne 55 
HIMEM:31744, mois ce n'est qu'un 
emplfitre. Le plus simple — c'est le 
conseil d'Yvan KOENIG — ■ seroit d'uti* 
liser RELOPRO. S, prevu, entre autres 
choses, pour la mise en place de rou- 
tines de ce genre. RELOPRO devrait 
devenir le standard TREMPLIN 
MICRO, meme si ce module relogeur 
occupe pres de 2 pages de la 
memoire. La vraie contrainte se situe 
au niveau de ('architecture du pro- 
gramme a reloger, a savoir : 

module programme, module adresse 
(opthnnei), module dates (optionnef). 

J'ai repris ici une partie des propos 
tenus par Yvan KOENIG qui signole au 
passage que RELOPRO doit beaucoup 
a Claude AUBRY. Personnellement, je 
crois que I'auteur n a pas suffisarn- 
ment explique comment utiliser 
RELOPRO... a partir d'un exemple 
tres simple. ARCOS. 

Page 73 de Tremplin Micro n°15, 
I'auteur utilise PLX - TXA alors qu'un 
simple PLA suffisait. Le fait d'empiler 
un registre n'oblige pas a depiler vers le 
meme registre. Attention I GBASCALC 
rev lent avec C = 0. Vvan KGEMIG. 



Que ceux qui possedent encore le vieux 
6502 1 6 vent la main ! Comment ? Si peu 
nombreux ? Mais alors, pourquoi se 
priver plus longtemps d'uti liser les nou- 
velles instructions du 65C02 ? Ah ! si 
j'avais le BRA plus long, je vous promets 
(ca n engage a rien) que j'aurais decide 
Apple a remplacer gratuitement les 
6502 par leur jeune successeur. Comme 
cela, pour le plaisir ! NESTOR. 

Faux ! dons le "6S&2 pes a pas", les 
auteurs ecrivent que le miniassenv 
bleur est integre dans le programme 
moniteur, mats ils se trompent. II n'est 
en foit present que dans des Apple lie 
recents, copobles de reconnoitre les 
disquettes 3 pouces 1/2. 

Vvan K OH NIC 



It 
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Une exclusivite Tremplin Micro : 




EEZER 



Possesseur d un GS tout frais, vous vous inquietez a juste 
titre du devenir de la carte mere, a la suite des opera- 
tions ext i net ion -allu mage que vous lui faites subir pour 
cause de configuration inadequate du RAMdisk. Vous 
avez remarque que lo selection effectuee au tableau de 
bord ne prend effet qu'apres la sequence susdite, 

FREEZER vient a votre secours et sera suivi de son 
quasi homonyme : FREEZER.CDA. Ce dernier sera uti- 
lisoble apres un demarrage sur ProDOS16. Au- 
jourd'hui, |e travail le pour ceux — nombreux — qui 
programment sous ProDOSS. 
Lars du demarrage, la fonction MMBoollnit ch Memory 
Manager s'oriente vers un demarrage a froid ou a 
chaud, en fonction du contenu d'un octet. Comme a peu 
pres tout ce qui est dans le GS, cet octet peut se prome- 
ner. II ne I'a pas fait a I'occasion du changement de ROM, 
mats $a nous pend au nez. J'ai done choisi de recuperer 
son adresse dans le code meme de I'outil en question, en 
respectant scrupuleusement les procedures d'approche 
reglementaires. J'envoie d'ailleurs FREEZER et FREE* 



ZER.CDA a Rich, Williams, le pere du Memory Manager, 
pour lui demander confirmation du fait que la nature de 
la premiere instruction de MMBootlnit restera inchan- 
gee (ce qui est probable). 

Dans I'etat actuel du GS, apres un BLOAD FREEZER, faire 
CALL 768+3 forcera a I'octet de controle provoquont 
un demarrage d froid lors d'un Qrl-POMME-ReseL 
Comme cette operation detruit AUTOMATIQUEMENT le 
contenu du RAMdisk, j'ai prevu des protections : 

• un BRUN accidentel sera sans consequence puisqu'il 
forcera I'etat demarrage a chaud, 

• si vous avez un remords, apres un CALL 77) , il vous 
sera loisible de faire un CALL 76$ qui retablira la 
situation standard (chaud). 

J'espere que les commentaires du source vous permettront 
de comprendre le fonctionnement de FREEZER qui fait appel 
a plusieurs instructions specifiques au 65816. Je loisse aux 
adeptes de ProCODE le soin de definir les macro- 
instructions rempla^ant les opcodes que leur outil ignore. 

Wail KOINIC. (16 novembrt 1«7) 




1 XC f 65c02 

2 XC ; 65816 

3 *********************************** 

A # FREEZER . S Yuan KOEN3G 16-31-87 » 18/11/87 

5 u * 

6 * BLOAD FREEZER * 

7 * Call 768+3 puis Ctrl POMME Reset * 

8 * "force un Reboot a -froid * 

9 * qui prend en consideration les * 

10 * indications du tableau de bord * 

11 * sans avoir a eteindre / allumer * 

12 * Si vous avez un remords * 

13 * Call 768 execute avant le RESET * 

14 * Reinstalle le reboot a chaud * 

15 a****************************************** 

16 NZ00 = $00 

17 NZ03 = *03 

18 ORG $300 (suite page 18} 
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FREEZER 











19 










0300: 


A9 


FF 




20 


CALL768 


LDA 


£$FF 


;pour forcer Demarrage CHAUD 


0302: 


2C 






21 




HEX 


2C 




0303; 


A9 


00 




22 


CALL771 


LDA 


£0 


;pour -forcer D^marrage FROID 


0305: 


8D 


3A 


03 


23 




STA 


mode 






ie 






24 




CLC 






0309: 


FR 










vtf 

At>L 






3 OA: 


C2 


30 




26 




REP 


$30 


;Nati-f 16 bi ts 


030C: 


38 






27 




PHB 




;Sauve banc source 


030D: 


OB 






28 




PHD 




;Sauve Page Directe 


030E : 


F4 


45 


03 


29 




PEA 


newOO 


;Page zero proui scire 


0311 : 


2B 






30 
31 




PLD 




; en newOO 


0312: 


F4 


00 


00 


32 




PEA 


$0000 


fplace pour reponse 


0315: 


F4 


00 


00 


33 




PEA 


$0000 


J 


0318: 


F4 


00 


00 


34 




PEA 


$0000 


fcherche adresse d'un ROMtool 


031B: 


F4 


02 


01 


35 




PEA 


$0102 


» -fonction 1 de 1'outil 2 


031E: 


A2 


01 


OB 


36 




LDX 


£$0B01 


sAppel outil GetFuncPtr 


0321 : 


22 


00 


00 


37 




DFB 


$22,0 ,0,$E1 


; JSL $E1G000 


0324: 


El 
















0325: 


68 






38 




PLA 






0326: 


85 


00 




39 




STA 


NZOO 


;mot bas adresse MMBootlnit-1 


0328: 


68 






40 




PLA 






0329: 


85 


02 




41 




STA 


NZOO+2 


;mot haut adresse MMBoot I n ! t-1 


032B: 


AO 


03 


00 


42 




LDY 


£0003 


jLa lere instruction de 










43 








i MMbootlni t est LDA XxYyZz 


032E: 


B7 


00 




44 




DFB 


$B7,NZ00 


; LDA 'NZOOs-.Y jrecupere YyZz 


0330: 


85 


04 




45 




STA 


NZ03+1 


0332: 


88 






46 




DEY 






0333: 


E2 


30 




47 




SEP 


$30 


\ A,X,Y Sbits 


0335: 


87 


00 




48 




DFB 


$B7,NZ0Q 


; LDA iNZ00§,Y {recupere Xx 


0337: 


85 


03 




49 




STA 


NZ03 


: desormais NZ03:XxYyZz 


0339: 


A9 


FF 




50 




LDA 


£$FF 












51 


mode 


a 


*-l 




0338: 


88 






52 




DEY 




Y=l 


033C; 


97 


03 




53 




DFB 


$97,N203 


;STA "NZ03§,Y ;Modifie l'octet 










54 








; haut du mot points par NZ03 


033E: 


C2 


30 




55 




REP 


$30 


; A f X,Y 16 bits 


0340: 


2B 






56 




PLD 




;Retour page initiale 


0341 : 


AB 






57 




PLB 




; Re tour banc origine 


0342: 


38 






58 




SEC 




0343: 


FB 






59 




XCE 




;Retour Emulation 


0344: 


60 






60 




RTS 




;Z'est u i n i ! 


0345: 


00 


00 


00 


61 


neuOO 


DS 


3 


jEn sepyice ce sera NZOO 


0348: 


00 


00 


00 


62 


new03 


DS 


3 


;En service ce sera NZ03 



--End assembly, 75 bytes, Errors: 



Ne pas utilizer 3 i u ou s ay e z 
demarre tutc ProDOSQ 1£ sur 
Apple I Igs ancienne ROM . 
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!Bffja APPtE tlGS | Claude AUBRY 

VITAMINES C ? 



LANGAGE C 



Je ne suis pas vraiment inquiet, mais mon toubib s'est mis d apprendre le langage C . II y a 
deux ans, convert! au Basic par mon dentiste (il avait pique le logiciel de gestion de stock de 
mon pharmacien), j'ai passe I'hiver a soigner mon rhume avec des petites pilules pour le 
foie. Tout ca pour vous dire qu'il faut que, ce mois-ci, C soit vraiment simple, sinon de 
grandes catastrophes surviendront au moment de la dinde de Noel. 



Au fait, qu'est-ce qui fait qu'un langage de 
programmation est simple a apprendre ? 

Quatre elements : 

• le rapprochement du langage naturel, 

• le fait qu'il soit proche d'un langage deja 
connu, 

• I'utilisation d'un vocabulaire reduit, 

• f'emploi destructions tres specialisees. 

Si vous avez lu les articles precedents, 
vous avez pu remarquer que C ne repond 
pas exactement au premier critere, II faut 
bien reconnoitre que, meme avec la meil- 
leure volonte du monde, un programme 
en C ne ressemblera jamais d du Mofiere. 
Toutefois, C est suffisamment "souple" 
pour s'adapter a differents styles de pro- 
grammation. On reconnatt 'Taccent" de 
I'ex-basicois, de I'ex-pascalien ou de I'ex- 
assembliste, 

Et puis, C presente cette originalite para- 
doxale de posseder relativement peu de 
mots-clefs (en tout 28) et d'offrir des ins- 
tructions tres specialisees (par exempte de 
gestion de fichiers ou d'entree/sortie) per- 
formantes. Ceci est rendu possible par les 
differentes phases de la transformation de 
votre programme en code executable : un 
processeur, sorte de traitement de texte 
automatique, vrent inserer des constantes 
ou des macro-instructions Id ou vous fe 

MWMMMWMMflMMMaMMMMBMOMMMMMMMM 

TREMPLIN MICRO 



desirez. C'est le role des instructions 
£define et Einclude. 

SI vous avez ecritpar exemple... 

£define btp putch(7); 

...chaque fois que dans le texte vous avez 
place I'instruction bip, le preprocesseur 
remplace celle-ci par putch(7); 

Ensuite, le compilateur traduit le texte que 
vous avez ecrit en langage machine, mais 
en ne s'occupant que des 28 mots-clefs 
dont je parlais plus haut. Lorsqu il rencon- 
tre un mot inconnu, il implante un appel d 
un sous-programme d'adresse indefinie. 

Le linker vient alors completer la ceremo- 
nie ; il verifie que le mot inconnu du com- 
pilateur correspond a un mot connu de la 
librairie (fichier.lib), il implante le sous- 
programme correspondent a la fonction et 
corrige I'adresse d'appel. 

Voild, vous avez tout compris : un langage 
tres simple est un langage qui ne comporte 
que les fonctions algorithmiques de base 
(sequence d'action, test, iteration), puis 
des macro-instructions et des bibliothe- 
ques de fonctions puissantes et adaptees d 
des cas generaux ou particuliers. 

Une bibliotheque de commande de robot 
pourra tres bien comporter les instructions 

LEVE^BRAS, TOURNE a GAUCHE, 

EMBRASSE MAITRE etc. (suite page 20) 
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Ou encore une bibiiotheque de fonction MACKINTOSH fournira Interface style «des souris et des 
hommes». 

Ces commandes seront «comprises» par le linker de la meme fagon que si elles faisaient partie 
integrante du langage de base. 

Pour I'instant, et pour cettefois nous allons nous attacher a defmir les instructions de base, les mots 
clefs du langage. 

1. INSTRUCTIONS et BLOCS 

La fonction algorrthmique la plus simple est la sequence, ou suite d'instructions.En "C" le 
separateur d'instruction est le point virgule.Plusieurs instructions peuvent etre groupees de fagon 
a constftuer un bloc qui se comportera lui meme comme une seule instruction. Les delimiteurs de 
blqc sont le e et e sur I'Apple frangais et le { et } sur I'Apple americain. 



/* Programme DROOPY */ 

main( ) 

e 

int i; 

for ( i=0;i<*=10; i++ ) 
printf ( "Hello " ) ; 
printf ( "Happy people" ) ; 

e 



r * programme FRENCH DROOPY */ 
main( ) 
e 

int i ; 

for ( i=0;i<=10;i++ ) 
e 

printf ( "Salut a vous"); 
printf ( "gens heureux" ) ; 
e 

6 



DROOPY fera ecrire 10 fois Hello suivit d'une fois Happy people 
FRENCH DROOPY fera ecrire 1 fois Salut a vous gens heureux. 



D< 
d' 
Df 
ex 



2. LES INSTRUCTIONS 01 TEST 

Le deuxieme niveau algorithmique est fourni par les instructions de test. Le test en langage "C" 
ressemble furieusement a son homologue basic IF sinon que le THEN est implicite : la syntaxe en 
est 

if (expression) instruction! : 
else instruction^; 

La partie else est facultative. Si expression est different de alors instructional est execute sinon 
c'est instruction 2 est execute. Bien entendu instruction peut etre aussi un bloc ^instructions. 



main( ) 




e 




int x? 




printf ( "Donnez un nombre : " ) ; 




scanf { "%d",&x) f - 




if (x <= 1000) printf ("x est plus 


petit ou egal a 1000"); 


else printf("x est plus grand que 


LOW*); 


e 





3. 

Les 

exe- 

L'ar 
La s 

for 

mais 
la Vc 



20 



GUY-HACHETTE 



FREi 



VIT AMINES C ? 



En plus de I'instruction IF "C" possede une puissante instruction dediee au ehoix multiple : 
('instruction SWITCH ou aiguillage. La syntaxe de switch est : 



switch (expression) 




/ 6 




case constantel 


: instruct ionl ; break; 


case constante_2 


: instruct ion_2 ; break; 


case constante_3 


: instruction_3 ; break; 


case constante_4 




case constante 5 


: instruction 4 5 : break; 


default : 


. . etc 

instruction_d; break; 


e 





Dans le cas ou expression (qui doit etre un entier) est egal a constante_1 instruction_1 (ou bloc 
d ' instruct tons_1) est execute. 

Deux constantes peuvent corresponds a une seule instruction (constante_4 et constante_5). Si 
expression ne correspond a aucune constante alors la clause default (facultative) est executee. 



/* Programme 


MORSE (un peu 


simplifie) */ 


main( ) 






e 

char c; 






pr intf ( " Tapez 


une lettre")* 




scanf ( "%c'\c) 






switch(c) 






e 






case 


'A' :printf ( 


"); break; 


case 


1 B ' :printf ( 


. . " ) ; break ; 


case 


'C ;printf ( "_ 


_. " ); break; 


case 


1 D ' :printf < 


. ");break; 


/* Continuez si ca 


vous amuse ! */ 


default :printf ( "Lettre inconnue" ); break ; 


e 






e 







S. LES INSTRUCTIONS D ITERATION 

Les instructions d'iteration que des gens sans scrupule vendent pour des boucles. servent a 
executer un certain nombre de fois un certain nombre destructions. 



L'archetype des instructions d'iteration est le FOR lui aussi proche cousin du FOR NEXT du BASIC. 
La syntaxe de «for» est tres simple ; 

for {e1 ;e2;e3) 

mais aussi tres complete puisq Lie e1 designe la valeur de depart de la variable compteur, e2 designe 
la valeur finale et e3 I'increment. {suite rw 22) 
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Le plus sou vent I' increment est defini par les operateurs «unaires» definis ci-dessous: 

a = ++i incr^mente i d'une unite et donne a a la valeur de i apres ('incrementation 
a = i++ incr^mente i d'une unite et donne a a la valeur de i avant Incrementation 

Mais il peut aussi etre defini par I'operateur unaire — (qui se comporte comme ++) ou par des 
operateurs binaires d'assignation tels que += ou encore de decalage de bit » et « 



i+=i attribue a i la valeur 2 i 

i»n decale i de n bits a droite 

i«n idem mais a gauche 



Les decalages de bitssont la pour faire plaisir aux programmeurs en assembleur dont le sport favori 
consiste & faire «tourner» des octets comme d'autres font tourner les tables, ainsi qu'a ceux qui 
veulent effectuer des divisions ou des multiplications ou des divisions par des multiples de 2 rapides. 
En effet si i est egaJ a 1 024 (en binaire 1 0000000000) t i»1 sera 6ga! a 51 2 (en binaire 01 000000000) 
Tenez, pour vous rechauffer les doigts, tapez le programme ci-dessous: 



main( ) 
e 

int i; 

for ( i=2;i<100; i+=i ) printf ( "%dcn" , i ) ; 

for ( i=0x400;i>l;i=i>>l ) printf ( M %xgn" , i ) ; 

e 



Les instructions while et do 



A ce propos, ayant deja parle de while dans le dernier numero une erreur sournoise s'etait gltssee 
{sans doute a cause du soleil) dans le texte il faltart lire en bas de la page 47 «tant qu'une condition 
est remplie»> et non pas n'est pas remplie ! Je remercie les limes vertueuses et laborieuses qui ont 
contribue a cet erratum. 



while (expression) 
e 

instructionl ; 
instruct ion_2 ; 
e 



do 

e 

instruction_l ; 
instruction_2 ; 
e 

while( expression ) ; 



Ces instructions font a peu pres la meme chose: repeter une instruction ou un bloc TANT QU'UNE 
CONDITION EST REMPLIE la seule difference etant que dans le cas du DO instructional et 
instruction^? sont executees au moins une fois puisque le test a lieu en fin d'execution, 

Un petit mot avant de vous laisser jouer avec votre compilateur et un petit programme specialement 
ecrit pour vous : I'instruction BREAK deja rencontree avec SWITCH permet de terminer brutalement 
Pexecution d'une iteration et de se brancher sur I'instruction qui suit le e de fin de bloc, 
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[.'instruction CONTINUE permet de se branches au debut de la boucle (sur le FOR le WHILE ou le 
DO). Ces instructions quoique pratiques ne participent pas a la structuration des programmes 
lorsque vous pouvez les eviter (et on le peut toujours) faites le. 



/* 

**+ 

**! JEU DE NIM 

**i une version simplifiee du celebre jeu de NIM 

**! Programme CAubry pour TREMPLIN MICRO adaptation GS E.Schwarz 
**+ + 

*/ 

/* Un exemple de macro pour generer le T 's' 1 du pluriel */ 

#define pluriel(a) <a>l) ? 's' : ' ' 

/* Variable globale */ 

int paquet = 0; 

main( ) 

e 

char s[4] ; 
char c; 

printf ( "Illlllllllllllllllliliiiliiiiiiiiiiiiiiiiiiiiiinicn" ) ; 
printf ( "IIIIIIIIIIIIIIIIIII LE JEU DE NIM IllllllllHIIIIIcn" ) ; 
printf ( "IlllllllllHIIIIIIIIIIIIIIIIIIllllllllllllllllllllcncncn" ) ; 
printf ( 1 'cn*** Chacun a notre tour, Enlevons de 1 a 3 allumettes"); 
printf ( "cnd'un paquet d 1 allumettes representees par les lettres I"); 
printf ( "cnCelui qui se retrouve avec une seule allumette a perdu !!!"); 
while (paquet < 5) 
e 

printf ( "cncnNombre d T allumettes dans le jeu (minimum 5):"); 

scanf ( " %d " „ &paquet ) ; 

e 

printf ( "gnVoulez vous commencer ? (o ou n) "); 
scanf ( "%4s" , sK- 
af f iche_jeu( paquet ) ; 

if <s[0] == 'o r uu s[0] == 'O' ) jeu_homme( ) ; 
while ( paquet ) 
e 

jeu Apple( ); 
jeu homme( ) ; 

e 



/* a vous de jouer */ 



jeu_homme( ) 
e 

int nombre » 0; 

if ( paquet = perdu ( "vous"' ) ; 

while (nombre < 1 uu nombre > 3 uu nombre > paquet) 

(suite page 24) 
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printf ( "gnCombien d'allumettes retirez vous (1..3) ? "); 
scanf ( " %d " , knombre ) ; 

if ( nombre < 1 uu nombre > 3 uu nombre > paquet ) 
printf ( M Ne trichez pas III"); 

e 

paquet nombre; 
affiche_jeu( ); 

e 

/* a 1' Apple de jouer */ 

jeu_Apple( ) 
e 

int nombre, coup_perdant ; 
if (paquet«l) perdu( "moi " ) ; 
/* Quel est le prochain coup perdant ? */ 
coupperdant = ( ( ( paquet -l)/4)*4+l); 
nombre = paquet - coupperdant ; 
if (nombre < 1 uu nombre > 3) nombre = 1; 
paquet -= nombre; 
printf ( "cnJe prends %d 
allumette%ccn ,, , nombre, pluriel ( nombre ) ) ; 
affiche jeu( ); 

e 

/* on montre le jeu sous forme de I */ 
af f iche jeu( ) 
e 

int i; 

printf ( "cn II reste %d allumette%c -> " , paquet r pluriel ( paquet }) ; 
for ( i=0; i<paquet; i++ ) printf ( "I" ); 
printf ( "cn" ); 

e 

/* affiche le perdant si paquet = 1 et termine */ 
perdu ( perdant ) 
char *perdant; 
e 

printf ( "gnUne seule allumette c'est perdu pour %s I I ! cn" , perdant > ; 

escit(O) ; 

e 



Je viens de decouvrir que ma psychanalyste efle-meme apprend le "C" en ce moment. Quelle 
horreur, quelle abomination, que falre ?, ou me tourner ? 

Ho "C" !!!, You drive me crazy..,. 
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FORMAT ACE 3,5 

5 BUF = 28672:D* = CHR* <4) : PRINT D*"PR£3": PRINT CHRt (17): PRINT 

Cr$"BL0AD FORMAT.BIN" : PRINT DVBLOAD BLOC0,A";BUF EEA9 

10 HOME : INVERSE : PRINT SPC< 39): PRINT : PRINT ■ Programme de form 
atage de Lecteur 3.5 u : PRINT SPC( 3?) r NORMAL : VTAB 5: PRINT 

15 ENTREE = 24576: CALL ENTREE + 26 

20 BUF = 28672 :V0LUME = PEEK (ENTREE + 22) + PEEK (ENTREE + 23) * 25 

6 280C 
25 VERT = PEEK (37) + 2: VTAB VERT: FOR I = TO 39: PRINT CHR* (95) 

; : NEXT B487 
30 PRINT : PRINT : PRINT " ""Unit* a -formater..: - : VTAB VERT + 3s CAL 

L ENTREE + 29 5E6B 
32 GOSUB 200 0942 
35 VTAB VERT + 5: HTAB 13: PRINT 'Norn /" : VTAB VERT 4 S 

40 CALL ENTREE + 32 267C 
45 X = PEEK (ENTREE +1): VTAB VERT + 7: PRINT "Inse>ez une disquette 

dans t'unite" ";X: PRINT : PRINT "et pressez une touche ..." 
50 HTAB 39: GET A$: VTAB 39: PRINT CHR* (11): VTAB 20: PRINT "Patienc 

e ..." 959C 
55 BUF = BUF + 512: FOR I = TO 42:X = PEEK (VOLUME +1): POKE BUF + 

I ,X: NEXT ECB4 
60 X = 0i FOR I = 43 TO 512: POKE BUF + I,X: NEXT DD0D 
65 PRINT : PRINT "Formatage en cours CALL ENTREE + 38 

70 CALL ENTREE ♦ 47 1E82 
75 X = PEEK ( ENTREE + 3) + 2: POKE ENTREE + 3,X:Y = PEEK (ENTREE + 4 

) + 2: POKE ENTREE + 4,Y ECCE 
80 CALL ENTREE ♦ 47: GOSUB 220 F300 
85 NBL = PEEK (ADR + 1) + PEEK (ADR + 2) * 256:NBL = (NBL / 8) - I :X 
= 255: FOR 1=1 TO NBL: POKE BUF * I,X: NEXT : POKE BUF, 65: POKE E 
NTREE +4,6 5F2E 
90 CALL ENTREE + 47 1EB2 
95 VTAB VERT + 2: PRINT CHR* (11): PRINT "Termine" ..." 9C97 
100 CALL ENTREE +41 1 27C 

110 PRINT : VTAB 22: PRINT "<1> ENCORE <2> MENU DISQUETTE <3> FIN";: P0 

KE 1745,49: POKE 1756,50: POKE 1775,51: GET R*: PRINT E926 
120 ON VAL <R*) GOTO 10,130,140 68ED 
130 REM ? CHR*(4>"RUN MENU " 

140 HOME : END 8E51 
200 ADR = PEEK (ENTREE + 24) + PEEK (ENTREE + 25) * 256:X = ADR - IN 

T CADR / 256) * 256 :Y = INT (ADR / 256): POKE ENTREE + 2,X: POKE E 

NTREE + 3,Y: CALL ENTREE + 35 DCD4 
205 X = BUF - INT (BUF / 256) * 256:Y = INT (BUF / 256): POKE ENTREE 

+ 2 r Xl POKE ENTREE + 3,Y: POKE ADR , 3FFA 
210 RETURN 63B1 
220 X = 0: FOR I = TO 511: POKE BUF + I,X: NEXT CCD 5 

230 X = 1:Y = 3: FOR I = 3 TO 5 :X = X + 1 :Y = Y ♦ 1: IF Y 3 6 THEN Y = 

FEB7 
240 POKE ENTREE + 4,1: POKE BUF t X : POKE BUF + 2,Y: CALL ENTREE + 47: NE 

XT A308 

250 RETURN (Routines LM au verso) ^1 
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1 REN »K»x»tt«ftK*»tft»*«ttft 

2 REM * CREATION BLOCO * 

3 REM ****************** 
A REM 

5 BUF = 28*72 :D* = CHRi (4): 
PRINT CHfti (17)! PRINT DTBL 
OAD FORMAT.BIN' 7B1A 

10 HOME ! INVERSE : PRINT SPC( 
39): PRINT : PRINT ■ ""Progr 
amine de Creation d'on Bloc 
': PRINT SPC( 39): NORMA 
L : V7AB 5: PRINT A38B 

15 ENTREE = 24576: CALL ENTREE 
+ 26\ REM Initial isation 

25 VERT = PEEK (37) # 2: VTAB 
VERT: FDR 1=0 TD 39: PRINT 
CHRI (95);: NEXT 8487 

30 PRINT : PRINT : PRINT ■ Un 
it* "Source ": VTAB VE 

RT + 3: CALL ENTREE f 29: RE 
M Choix du Drive 7D18 

35 CALL ENTREE + 44: REM Lectur 

e dc Bloc 1C7F 

40 PRINT DS'BSAVE Bl DCO ,A" ;8UF; 

" ,L5I2" IB5B 

45 VTAB VERT * 2: PRINT CHR$ ( 
11): PRINT 'Termin* ..." 

50 END 0160 



Ne manquez pas la 
disquette n°18 de 
TREMPLIN MICRO 

(bulletin de commande p. 68) 

Joel DESNOUES 

vous y presente 
une version simplifiee 
(mais performante) 
de son excellent 

CATELEM 
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GUY-HACHETTE 



LANGAGE MACHINE 



65C02 - 65C8t6 



NESTOR 



LIT.JONG 



UTILISATION : Uniquement par BRUN LIT.JONG. On indique alors le chemin et le titre choisis. 
Exemples ; 

• TOT/TITI pour lire le fichier TITI, du sous-catalogue TOT (cela suppose que Ton a pour 
PREF1XE celui de la disquette concernee). 

• /JONGLEUR/TOT/TITI pour lire le fichier TITI du sous-catalogue TOT, sur une disquette 
dont le PREFIXE est JONGLEUR, 

Le Jongleur de mots, traiternent de texte paru en anglais sous le titre World Juggler (chez 
Quark Inc.), stocke astucieusement les voyelles surmontees d'un trema ou d'un accent circon- 
flexe*. En effet, alors que tous les autres caracteres (codes divers exceptes) sont codes en 
ASCII, les a e ? 6 sont traduits par 3, 4, 5, 6 ou 7, et les a e V 6 u par 8, 9, A, Bou C. 
Cette petite routine charge un fichier (TXT) a partir de I'adresse $1 000, puis afficbe les lignes du 
texte en respectant sa mise en page (retours ligne). Les voyelles seront done affichees, mais 
sans accent circonflexe ou trema. Par contre, dans le me me temps, le fichier est reecrit a partir 
de I'adresse $900, accents litigieux compris, precedant les caracteres concernes. On pourra lire 
I'adresse de fin de fichier en $8-9. 

UT-JONC aidera les utilisateurs de Jongleur de mots a verifier le contenu d'un texte sans avoir 
a charger le logicieL L'affichage se fait par page de 22 lignes (n'importe quelle 
touche) ou ligne par ligne (barre d espacement). 

• Le Jongleur de mots utilise un ecran grapbique de BO coionnes. ce qui lui permet dafficher tous les caracteres accentues. 
C'esl un excellent fraitement de texte. 



00/0801 


20 


58 


FC 


JSR 


FC58 


00/0804 


AQ 


08 




LDY 


£08 


00/0806 


A9 


C9 




LDA 


£C9 


00/0808 


20 


3A 


DB 


JSR 


DB3A 


00/080B 


20 


6F 


FD 


JSR 


FD6F 


00/080E 


8A 






TXA 




00/080F 


F0 


33 




BEQ 


0844 


00/081 1 


A8 






TAY 




00/0812 


BD 


FF 


01 


LDA 


01FF r X "1 


00/0815 


48 






PHA 




00/0816 


CA 






DEX 




00/0817 


D0 

•flIHHI 


F9 




BNE 


0812 _ 



SAISIE DU TITRE DU FICHIER A LIRE 

HOME efface I'ecran. 

Adresse de la chaine "BLOAD", 

Strout affiche la chame pointee par Y/A. 
Une entree de GETLIN (ponctuation acceptee). 
Le nombre de caracteres est dans X. 
S'il est nul, termine. 
AdansY(-X). 



TITRE EMPILE 



Lecture du texte saisi (il est empile a I envers). 
A la sortie, X = 0. 

(suite page 26) 
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00/0819 


: BD 


C9 


08 


LDA 


08C9,X 


00/081 C 


F0 


06 




RFO 




00/081 E 


; 9D 


00 


02 


ST A 


CJ9CJ0 X 


00/0821 


E8 






INX 




00/0R99 


DO 


F5 

f -J 




RNF 


VO 1 7 


00/0894 


C8 






INY 




00/0825 


: 88 






DEY 




00/0826 


: F0 


07 




BEQ 


082F 


00/0828 


68 






PLA 


"1 


00/0829 


9D 


00 


02 


STA 


0200, X - 


00/082C 


: E8 






INX 




00/082D 


: D0 


F6 




BNE 


0825 


00/082F 


AO 


07 




LDY 


£07 n 


00/0831 


B9 


C9 


08 


LDA 


08C9,Y 


00/0834 


9D 


00 


02 


STA 


0200.X _ 


00/0837 ; 


C9 


8D 




CMP 


£8D 


00/0839 : 


F0 


04 




BEQ 


083F J 


00/083B ; 


E8 






INX 




00/083C : 


C8 






INY 


] 


00/083D : 


00 


F2 




BNE 


0831 


00/083F : 


20 


03 


BE 


JSR 


BE03 


00/0842 : 


90 


01 




BCC 


0845 


00/0844 : 


60 






RTS 




00/0845 . 


AD 


C8 


BE 


LDA 


BEC8 ~~| 


00/0848 : 


85 


06 






Oft 


00/084A : 


AD 


C9 


BE 


i nA 




00/ 084 D : 


18 










00/084E : 


69 


10 




ADC 


£10 


00/0850 : 


85 


07 




STA 


07 


00/0852 : 


A9 


00 




LDA 


£00 i 


00/0854 : 


A8 






TAY 




00/0855 : 


91 


06 




STA 


(06), Y 


00/0857 : 


EA 






NOP 


00/0858 : 


85 




06 




STA 


06 ~| 


00/085 A: 


85 


08 




STA 


08 


00/085C ; 


A9 


09 




LDA 


£09 


00/085E : 


85 


09 




STA 


09 


00/0860 : 


A9 


10 




LDA 


£10 


00/0862 : 


85 


07 




STA 


07 


00/0864 ■ 


A9 


15 




LDA 


£15 1 


00/0866 ■ 


85 


18 




STA 


18 J 



BLOAD DANS LE BUFFER 



On installe BLOAD dans le buffer. 
Quand I'accumuloteur contientO, sortie. 
X est alors pret pour le prochain coroctere. 

Y est ajuste pour autoriser I'operation suivante. 

TITHE DANS LE BUFFER 



Y = d'obord la longueur du texte saisi (X). 
Quand Y = 0, sortie. 

Un caractere depile est ecrit dans le buffer. 

X est incremente... pour ecriture. 
L'operation continue. 

TYPE ET ADR ESSE DANS LE BUFFER 



On doit lire et ecrire ",TTXT,A$10Q0" et 8D. 

On aurait pu donner Y = et I'adresse vraie du texte 

$8D0. 

Quand on aura lu et ecrit $8D, termine ! 

Les deux compteurs sont incremented. 

La boucle continue. 
MU. 

Si la retenue est a 0, pas d'erreur : on saute. 
FIN. 

LONGUEUR DU FICHIER 



A la longueur, lue en $BEC8-BEC9, 
on ajoute $10 (partie haute), 
adresse de debut de stockage. 



FINDE FICHIER 

A = 0etY = 0. 



On met un en fin de fichier. 



POINTEURS DIVERS 



$6-7 : adresse du fichier (chargement). 
$8-9 : adresse du fichier reecrit. 



NOMBRE DE LIGNES PAR PACE 



| Nombre de lignes limite d $15 (0-21). 
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00/0868 • 


Bl 


06 




LDA 


(06) Y 


00/086A : 


F0 


D8 




BEQ 


0844 


00/086C : 


C9 


20 




CMP 


£20 


00/086E : 


B0 


20 




BCS 


0890 J 


WWy WO/ vJ . 


V_ 7 


w*> 




CkKP 


pen n 




90 








vioriu _j 


WW/ WO/ *♦ . 


CQ 


cm 




TAAP 


*>W U/ 


WW/ wo/o 


rw 


1 ft 

1 o 




RPO 


W07W — 1 




BO 


7F 




rc <i 


Oft Aft 

WO/AO 


00/087 A : 


AA 






TAX 




00/087B , 


C9 


08 




CMP 


£08 ] 


nn /fiR7n 

vw Uo/ U 


DM 








WOOo — J 


v w / wo / r 


AQ 

/A 7 


nF 




1 HA 


£ HF — 1 


WW/ WOO 1 




019 




DHL 


WOO J 


ww/ wooo 


AO 


r C 




1 HA 
L U A 


tec ~ 1 
tr t 


00 0885 


91 


08 




STA 


(08),Y _ 


WW/ WOO/ 


DU 


n a 


rift 
wo 




fitftHA Y 
wOun,A 


WW./ Woo A 


C A 

co 


WO 






no i 
wo 


WW/ WOOL 


L/W 


wz 




DIN C 




WW/ WOOC 


c o 


no 






W7 


00/0890 


09 


80 




ORA 


£80 


00/0892 


C9 


AO 




CMP 


f A0 


00/0894 


D0 


07 




BNE 


089D 


00/0896 


AE 


7B 


05 


LDX 


057 B 


00/0899 


E0 


4F 




CPX 


£4F 


00/089B 


F0 


03 




BEQ 


08A0 _ 


00/089D 


20 


ED 


FD 


JSR 


FDED 


00/08A0 


91 


08 




STA 


(08) Y _ 


00/08A2 


E6 


08 




— 

INC 


08 


00/08A4 


D0 


02 




BNE 


08A8 


/irt /AO A i 

UU< UoAo 


t A. 

to 


no 




INL 


no 


00/08A8 


: E6 


06 




INC 


06 


00/08AA 


: DO 


02 




BNE 


08AE 


00/08AC 


: E6 


07 




INC 


07 


00/08AE 


: C9 


8D 




CMP 


£8D 


00/08B0 


: DO 


B6 




BNE 


0868 


00/08B2 


: C6 


18 




DEC 


18 


00/08B4 


: 10 


B2 




BPL 


0868 _ 



DECRYPT ACE — - 

Y vout (voir page 28). 

Quand l accumulateur contiendra : termine. 

Si superieur ou egal a I'espace, bon. 

Si inferieur a 3, aucun affichage. 

Si e'est RETURN, traitement de foveur. 

Superieur 6 $D, aucun affichage, 

oeidu et aeiou — 



A dans X (a = 3 - a = 8). 

Egal ou superieur a 8, e'est le trema : saut. 

Accent circonflexe dans A et saut. 
Trema dans A. 

Ecriture dans le nouveau fichier. 
TRANSFORMATION DU CARACTERE ACCENTU E 

On lit le bon caractere. 

Compteur d'ecriture increments 
(pour tenir compte de I'accent). 

Bit 7 a 1 

VERIFICATION FIN DE LICNE — 



Quand il y a un espace en fin de I'gne, le return qui suit 
provoque un double saut de ligne. Ce controle evite ce 
desagrement (on n'affiche pas l espace). 

AFFICHAGE DU CARACTERE 



Affichage et ecriture dans le nouveau fichier. 



COMPTEUR D'ECRITURE 



On incrementera la partie haute si $FF +1=0. 



COMPTEUR DE LECTURE 



NOMBRE DE LIGNES — 

Est-ce RETURN ? (Le Jongleur de mofs en met un a la 
fin de cheque ligne). Non : suite. 
Si oui, on decremente le compteur 

juSQu'a O indus. (soite page 30) 
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ATTENTE 



00/08B6 


2C 


10 


CO 


BIT 


C010 


00/08B9 


AD 


00 


CO 


LDA 


C000 


00/08BC 


1G 


FB 




BPL 


08B9 


00/08BE 


2C 


10 


CO 


BIT 


C010 


00/08C1 


C9 


AO 




CMP 


£A0 


00/08C3 


D0 


9F 




BNE 


0864 


00/08C5 


E6 


18 




INC 


18 


00/08C7 : 


80 


9F 




BRA 


0868 



Attente d'une touche pour continuer. 

| Si ce n'est pas I'espace, suite normale, page par page. 

I St c'est I'espoce, le compteur est increments pour une 
J outre ligne. 



TEXTES et TABLE DES VOVELLES ACCENTUEE5 

*8C9.8E6 

00/08C9 : C2 CC CF CI C4 AO 00 - BLOAD. 

00/08D0: AC D4 D4 D8 D4 AC CI A4 Bl BO B0 B0 8D El E5 E9 -.TTXLASlOOO.aei 
00/08E0 ; EF F5 El E5 E9 EF F5 - ouoeiou 

BSAVE IIT.JONG, A$801. L$E6 



UTILISATION AVEC L AMPERSAND 



Tel qu'il se presente, LIT. JONG exige un BRUN lors de choque lecture de fichier. Les 
quelques lignes ci-apres creent un programme EXEC qui autorise de multi-lectures par 
('intermediate de I'Ampersand. 

Si vous regordez a I'adresse $300, vous y trouverez : 

300 ; 20 01 08 JSR $0801 - Adresse du programme. 

303 : 4C 3C DA MP $D43C = CMDLOOP, boucle principal de I'interpreteur. 

Bien entendu, personne ne vous interdit de reecnre LITJONG en y incorporant le JMP a 
$D43C et pourquoi pas ? — I'ecriture de I'adresse $801 dans les parametres de I'Am- 
persand ($3F6-3F7). II ne sera plus necessaire, apres cela, de passer par un EXEC... ou par 
une succession de BRUN. 

• Notez que I'affichage doit etre en 80 colonnes. 



10 D$ = CHR$ (4): PRINT : PRINT D$"OPEN STARTUP": 
PRINT D$"WRITE STARTUP" 

20 PRINT "POKE 101376: POKE 1014,0: POKE 1015,3: 
POKE 768,32: POKE 769,01 : POKE 770,8: POKE 771 ,76: 
POKE 772,60: POKE 773,21 2" 

30 PRINT "PR£3": PRINT "HOME": PRINT "CATALOG" 
40 PRINT "BRUN LITJONG" 

50 PRINT D$"CLOSE STARTUP" ■ 
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GUYHACHETTE 



Votre bibliotheque 
INFORMATIQUE 




• NOUVEAU DICTIONNAtRE 
DE L'AMSTRAD PC J512 
(par Marcel COTTIM) 

Base sur 1e standard des PC, avec un must au 
niveau du systeme Sexploitation, en Incur- 
rence le DOS Plus le PC 1512 est une machine 
conviviale dans bien des domarnes. Avec un 
rapport qualite.prix des plus competitifs, ce 
type de micro-ordinateur devrail trouver 
ocquereur a sa mesure, qu H soit "hobbyiste'' 
ou horn me d'affaires [PMEPMI], 
Le Novveau Dicttonnoire Amstred-PC 1512 est 
un ouvroge tres complet sur le PC 1 512, regrou- 
pont en un seul volume toutes les informations 
essentielles pour mallriser eorrectement une 
telle machine. Concu sur le principe redaction- 
nel d m dictionnaire, LB NOUViAU DICTION- 
NAIRF est un ouvroge de reference de haul 
niveau destine oux programmers hobby istes 
sur PC, et particulierement sur I'Amstrad PC 
1512. II developpe en trois chapttres, un dic- 
tionnaire relatil a tout ce qui louche I'unile cen- 
tral et les systemes d'explailation MS-DOS et 
DOS Plus. Vous apprendrez dans un premier 
temps d vous familiariser avec len- 
vironnement MS-DOS et DOS Plus, en donnont 
chaque fois la syntaxe des commande internes 
el externes. Un grand nombre d'exemples 
viennent conforter la theorie. 

• OHAPITRE 1 : Ce chapitre est consacre a 
tout ce qui se rapporte en general au PC 1512, 
decrivant plus particulierement les termes et 
les mots techniques, comme par exemple le 
microprocesseir, les controleurs d'interfaces, 
le Cluster, le Directory, etc. C'est en somme un 
dictionnaire alphobetique des mots usuels 



et particuliers, directement lies a la machine. 

• CHAPITRE 2 : ll troite plus particuliere- 
ment le systeme d'exploitation MS-DOS, ver- 
sion 3.20 de Microsoft Toutes les commandes 
sont passees en revue, qu'elles soient exlernes 
ou internes, avec ou sans parametres option- 
nels Pour illustrer les cos difiiales plusieurs 
exemples appuient la theorie. 

• CHAPITRE 3 ; II irarte le systeme d exploi- 
tation DOS Plus, disposition particuliere du PC 
1512 pour gerer les fichiers CP/M. La meme 
structure descriptive que celle utilise* pour le 
traitement de MS-DOS sera adoptee. 

(S72pages - Prix I9SF}. 

Editions du SYKX- 6-8 impasse du Cure. 75018 PARIS. 



• PROGRAMMATION 
SYSTEME ET BIOS 
DE L'AMSTRAD PC 
(par Marcel COTTIHI) 

Cet ouvroge regroups en un seul volume 
toutes les informations essenlielles pour 
pouvoir maitriser eorrectement I'Amstrad 
PC 1512. II sadresse au progrommeur sur 
Amstrad PC ou a I'utilisoteur averti desirant 
mieux connaitre sa machine. Programma- 
tion Systeme el BIOS de I'Amstrad PC vous 
permeltra de tout sovoir (ou presque tout) 
aussi bien sur le materiel que sur le BIOS et 
les interruptions du PC 1512. Apres une des- 
cription generate de lo machine, les diffe- 




SYSTEM FT BIOS 




rents composonts sont passes en revue, 
mettant l occent sur la programme! ion des 
difterents registres de chaque interruption 
du BIOS. 

L'unite centrole, le controleur d'interrup- 
tion, I'interface programmable de peripheric 
ques, le controleur video, le port serte, le 
controleur du lecteur de disquettes, et bon 
nombre d'outres organes essentiels sont 
deloilles un a un. Chaque structure est trai- 
tee dans le but de mettre a la disposition du 
lecteur tous les outils d'aide 6 la program- 
motion. Cet ouvrage est indispensable pour 
toule personne voulant aller au cceur de 
I'Amstrad PC, vous donnant toutes les infor- 
mations pour mieux tirer parti de voire 
machine. Un glossoire dresse une liste non 
exhaustive du vocobulaire informatique 
specifique a I'environnement Amstrad PC 
afin d attirer I'attention du lecteur sur des 
cos d'interpretation tendancieuses, 

Pour les plus exigeonts. des annexes revelent 
des details croustillonts et des astuces pour 
satisfaire les plus "branches' de la micro- 
inlormatique. Un ouvrage a lire et a relire I 

(245 pages -Prix 249 F} 

ftftaww ov Pit ,5 pioce <?'u CoM Fabier>. 75010 PARIS 



• ALGORITHMES ET 
STRUCTURES DE DONNEES 
(par Nick lays WIRTH) 

"Vordinateur a ete invente pour executer 
plus incitement des caicuh tres longs et tres 
complexes ; ioutetois, dons lo majorite des 
applications de I'inhrmatique, c'est lapossi- 
bifite de stacker et de manipuler un grand 
nombre de donnees qui est prtmordsofe, 
tandis que la capocite a cafcuhr, a executer 
des operations arithmetiques est ires 
secondaire." 

Ces quelques lignes sont les premieres du 
chapitre 1 de I'excellenl ouvroge de N. 
WIRTH et on peul dire qu'elles donnent por- 
faitement le Ion de ce livre serieux, docu- 
ment^, riche en exemples utiles et bien 
commented. 

Attention ! ce n'est pas un roman, mais plu- 
tot un cours ecrit par un bon pedagogue. Le 
langage utilise est le Modula-2, fruit de dix 
annees de Pascal dont il garde les concepts 
de base tout en y incorporont quelques ame- 
liorations et extensions. A defout de prati- 
quer le Modula-2, une bonne connoissance 
du Pascal est indispensable pour tirer parti 
des riches enseignements de ce livre 
[reliure solide permettant un usage inten- 
sif ... un bon point pour I'ecliteur I). Nestor. 

Editions EYROtlES. 61. boulewd St -Germain 7S240 
PARIS Cedex 05 (336 pages - Prix 290 F! 
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INITIATION 



APPLE UGS 



Clement RENARD 



SBCADC 



65816 (APPLE IKS) 



Soustraction elementaire sur 16 bits, suivie d'une addition qui permet de retrouver la valeur utilisee au depart. 



00/0300 


18 






CLC 




00/0301 


FB 






XCE 




00/0302 


C2 


30 




REP 


£30 


00/0304 


A9 


FF 


FF 


LDA 


£FFFF 


00/0307 


38 






SEC 




0070308 


E9 


00 


DO 


SBC 


£D000 


00/030B 


85 


06 




STA 


06 


00/03OD 


38 






SEC 




00/030E 


FB 






XCE 




00/030F 


60 






RTS 




00/0310 


18 






CLC 




00/0311 


FB 






XCE 




0070312 


C2 


30 




REP 


£30 


00/0314 


A9 


00 


D0 


LDA 


£D000 


00/0317 


18 






CLC 




00/0318 


65 


06 




ADC 


06 


00/031 A 


85 


06 




STA 


06 


00/03 1C 


38 






SEC 




00/031 D 


FB 






XCE 




00/031 E 


60 






RTS 





SOUSTRACTION 

Mode notif pur. 

Le nombre est SFFFF (16 bits)*. 

Relenue a 1 pour soustraire. 

Le nombre a deduire est $DC10 (16 bits). 

Le resultat est stocke page 0, aux adresses $6... et $7. 

Retour au mode emulation. 



ADDITION 

Mode natif pur. 

On a toujours$D000. 

Annulation de la retenue pour additionner. 

On additionne le contenu des adresses $6... et $7. 

Et on ecrase I'ancienne valeur avec la nouvelle. 

Retour. 



ftetflONlUfe I On aurait pu lire le nombre de base dans deux memoires de la page zero par A5 08, 
par exemple (nombre stocke en $8-9, partie basse dans $8 et partie haute dans $9). 

Vous pouvez faire un essai en remplacant : 304 : A9 FF FF par 304 : A5 08 EA (EA = NOP, sans 
effet) ; placez ensuite votre nombre en $8-9. Noubliez jamais, lorsque vous programmez en mode 
natif sur votre Apple IIGS, que les instructions prennent ainsi (pas toutes !) une autre dimension. 



Verifiez cette double routine en direct, a partir 
du moniteur. Pour obtenir un listage eventuel 
correct, ne pas oublier de taper : 



I = m 



i = x 



RETURN 



*300G 


*310G 


*6.7 


*6.7 


00/0006:FF2F-./ 


00/0006:FF FF-.. 
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INITIATION AU LANCAGE MACHINE 



NESTOR 



DIFFERENCES 



On me demande souvent : 
"Pourquoi programmer en 
langage machine ?". 
Voici la reponse. Sur un 
Apple lie, elle creve les 
yeux ! 



300 
303 
306 



20 84 FE JSR $FE84 SETNORM : affichage en mode normal 

JSR $FB39 SETTXT : mode texte. 

JSR $FC58 HOME pour effacer I'ecran. 



309 
30B 
30D 
310 
313 
316 
318 
31A 



A9 03 

85 25 

20 22 FC 

20 32 03 

20 62 FC 

A4 25 

CO 11 

F0 12 



IDA £$03 

STA $25 

JSR $FC22 

JSR $0332 

JSR $FC62 

LDY $25 

CPY £$11 

BEQ $032E 



03 dons CV pour VTAB 4. 

VTAB deplace le curseur en CV. 
Sous-programme pour tracer une ligne. 
CR envoie un retour chariot (ou LF, $FC66). 
A-t-on atteint la limile 
(icifixeea$ll/17 = VTAB 18) ? 
Si oui, saut. 



31C 
31 E 
320 
322 
325 
327 
329 
32C 



A2 04 

86 24 

A9 AA 

20 ED FD 

A2 22 

86 24 

20 ED FD 

80 E5 



LDX 
SIX 
LDA 
JSR 
LDX 
STX 
JSR 
BRA 



£$04 

$24 

£$AA 

$FDED 

£$22 

$24 

$FDED 

$0313 



CH installe. 

Affichage du caractere (on pourrait aller le lire dans 
une adresse de la page par AS 06, par exemple). 

CH fin de la ligne ($22 = 34 soil HTAB 35). 

Affichage. 
Et on continue. 



32E : JSR $0332 Vers le sous-programme pour lebasdu cadre. 

RTS Retour au Basic, 



331 


60 




332 


AO 


04 


334 


84 


24 


336 


A9 


AA 


338 


20 


ED FD 


33B 


C8 




33C 


ca 


23 


33E 


DO 


F8 


340 


60 





LDY 
STY 
LDA 
JSR 
INY 
CPY 
BNE 
RTS 



£$04 
$24 
£$AA 
$FDED 

£$23 
$0338 



CH installe. 

Caractere desire dans A, 
COUT affiche. 
Y = Y + I. 

j Quand Y atteint la limite prevue, on arrete* 
Retour. 



On peut faire rnieux, mais e'est deja tres bien. Quant a la longueur, 
il suffit de consulter le catalogue ProDOS pour constater que cet 
EX3 est plus court que les deux exemples en Basic. (suHepoge34) 



TREMPLIN MICRO 33 



RUN EX1 



Cetie routine n'cst vrotment 
pas optimisee. Bet exempt* 
(veulu) de tenievf I 



1 Of TEXT : NORMAL : HOME 

20 FOR I = 4 TO 18 

30 FOR J = 5 TO 35 

40 IF (I > 4 AND I < 18) AND (J > 5 AND J < 35) THEN 60 

50 VTAB !: HTAB J: PRINT " * " 

60 NEXT : NEXT 



10 TEXT : NORMAL : HOME 

20 FOR I = 1 TO 31 :A$ = A$ + " * 

30 VTAB 4: HTAB 5: PRINT A$ 

40 FOR I = 5 TO 17: HTAB 5: PRINT "* 

50 HTAB 5: PRINT A$ 



C'est deja mieux. Sur uri GS, 
c'esi meme suffisant. 



NEXT 



HTAB 35: PRINT "* ": NEXT 



10 
15 
20 
25 
30 
35 
40 
45 
50 
55 
60 
65 



LIGNE 



Ligne horizontale instantanee 



TEXT : HOME : D$ = CHR$ (4): PRINT CHR$ (21 ): HOME ; GOSUB 60 
VTAB 20: INPUT "CARAC";C$:C = ASC (C$) 
VTAB 22: INPUT "Vert, Hdebut.Hfin ";V,HD,HF 
CALL 768,C,V,HD,HF 

CALL - 198: POKE 49168,0: WAIT 49152.128: POKE 49168,0 

VTAB 24: PRINT "(E)NCORE (A)PPLESOFT (M)ENU ";: GET R$: VTAB 22: PRINT 

IF R$ = "E" OR R$ = "e" THEN 15 

IF R$ = "M" OR R$ = "m" THEN PRINT D$' RUN MENU" 

IF R$ = "A" OR R$ = "a" THEN HOME : END 

GOTO 35 

FOR I = 768 TO 802: READ R:POKEI.R: NEXT : RETURN 

DATA 32,245,230,138,9,128,72,32,245,230,202,138,32,71,248,32.245,230,202,218,32,245, 
230,134,6,122,104,145,38,200,196,6,144,249,96 



300 


20 


F5 


E6 


JSR 


$E6F5 


313 


DA 




PHX 




303 


8A 






TXA 


314 


20 


F5 E6 


JSR 


$E6F5 


304 


09 


80 




ORA 


£$80 


317 


86 


06 


STX 


$06 


306 


48 






PHA 




319 


7A 




PLY 




307 


20 


F5 


E6 


JSR 


$E6F5 


31A 


68 




PLA 




30A 


CA 






DEX 




31B 


91 


26 


STA 


($26),Y 


30B 


8A 






TXA 




31D 


C8 




INY 


30 C 


20 


47 


F8 


JSR 


$F847 


31 E 


C4 


06 


CPY 


$06 


30F 


20 


F5 


E6 


JSR 


$E6F5 


320 


90 


F9 


BCC 


$0316 


312 


: CA 






DEX 




322 


60 




RTS 





34 



GUY-HACHETTE 



INITIATION All LANGAGE MACHINE 



NESTOR 



LOCNBR 



OB JET Saisir des n ombres — et rien que des 
nombres — a partir d un point precis de 
I ecran. On efface avec la fleche arriere. Fin de 
saisie avec RETURN. La longueur du nombre est 
limitee a N chiffres. Sa valeur est contenue dans 
une variable (tci NR) au retour de la routine. 



LOCBAS 



100 D$ = CHR$ (4): PRINT D$"PR£3": 
PRINT : HOME 

1 1 PRINT D$ "BLOAD LOCNBR" 

120 VTAB 20: HTAB 1: CALL - 958: 
PRINT "HTAB, VTAB, NOMBRE 
DE CHIFFRES" 

125 VTAB 24: POKE 34,23: HOME 

130 INPUT "-»H,V,N ";H,V,N 

140 IF H < 1 OR H + N > 80 THEN 
130 

150 IF V < 1 OR V > 24 THEN 130 
160 IF NOT N OR N > 1 1 THEN 130 
170 TEXT: HOME 



180 CALL768,V,H,N,NR 

190 PRINT : PRINT "VALEUR DANS 
(NR) : ";NR 

200 VTAB 23: PRINT "(M)ENU DE DIS 
QUETTE (E)NCORE (F)IN ";: GET 
R$ 

210 VTAB 20: PRINT : IF R$ = "M" OR 
R$ ~ "m" THEN PRINT D$"RUN 
MENU" 

220 HOME : IF R$ = "E" OR R$ = "e" 
THEN 120 

230 IF R$ = "F" OR R$ = "f" THEN 

END 
240 GOTO 200 



LOCNBR SUR 80 COLONNES 



VTAB 



300 : 20 F5 E6 

303 : CA 

304 : 86 25 
306 : 20 22 FC 



309 : 20 F5 E6 

30C : CA 

30D : 86 06 

30F : 8E 7B 05 



312 
315 
316 
317 
319 



20 F5 E6 

8A 

18 

65 06 
85 07 



JSR SE6F5 
DEX 

STX $25 

JSR SFC22 



JSR SE6F5 
DEX 

STX $06 

STX S057B 



JSR $E6F5 



CLC 

ADC $06 
STA $07 



On passe par GETBYTC pour recuperer VTAB. Le resultat 
est dans X qui est decrements (0 a 23). 

VTAB place le curseur sur la ligne indiquee dans CV ($25). 
HTAB 

Meme processus pour HTAB qui est sauvegarde dans $6. 
HTAB [toujours moins un : a 79). 

LONGUEUR DU MOT 



Longueur du mot passee dans A. 

On aura ainsi, en $7, la limite a ne pas depasser. 

{suite page 36) 



TREMPLIN MICRO 



35 



31B 


: 20 


9C 


FC 


JSR 


SFC9C 


31E 


A9 


FF 




LDA 


£$FF ~j 


320 


20 


ED 


FD 


JSR 


$FDED _ 


323 


: CE 


7B 


05 


DEC 


$057B 


326 


; 2C 


10 


CO 


BIT 


SCO 10 


329 


; AD 


00 


CO 


LDA 


scooo 


32C 


10 


FB 




BPL 


$0329 


32E 


: 2C 


10 


CO 


BIT 


$C010 


331 


! C9 


8D 




CMP 


£$8D 


333 


: F0 


IB 




BEQ 


$0350 J 


335 


: C9 


88 




CMP 


£$88 


337 


: DO 


ac 




BNE 


$0345 


339 


AD 


7B 


05 


LDA 


$057B ~~1 


33C 


C5 


06 




CMP 


$06 


33E 


FO 


E6 




BEQ 


$0326 _ 


340 


CE 


7B 


05 


DEC 


$057B ~| 


343 


10 


D6 




BPL 


$031 B J 


345 


C9 


BO 




CMP 


£$BG 1 


347 : 


90 


DD 




BCC 


$0326 J 


349 ; 


C9 


BA 




CMP 


£$BA 


34B : 


BO 


D9 




BCS 


$0326 J 


34D : 


20 


ED FD 


JSR 


$FDED 


350 : 


48 






PHA 




351 : 


AE 


7B 


05 


LDX 


$057B 


354 : 


8A 






TXA 




355 : 


38 






SEC 




356 : 


E5 


06 




SBC 


$06 


358 : 


A8 






TAY 




359 : 


68 






PLA 




35A ; 


C9 


8D 




CMP 


£$8D ~| 


35C : 


DO 


04 




BNE 


$0362 J 


35E : 


A9 


00 




LDA 


£$00 


360 


C8 






INY 




361 


E8 






INX 




362 


E4 


07 




CPX 


$07 


364 


90 


01 




BCC 


$0367 


366 


C8 






INY 




367 


29 


3F 




AND 


£$3F 


369 


99 


99 


03 


STA 


$0399 r Y 


36C 


C9 


00 




CMP 


£$00 ~| 


36E 


F0 


06 




BEQ 


$0376 J 



MISE EN PLACE DU CURSEUR 

CLREOL efface la fin de la ligne. 

Pave frame comme curseur. 

Attention ! il faut revenir sur la position ! 

SAISIE 



Clavier a zero. 
Lecture du clavier. 

Si aucune touche n o ete pressee, on attend. 
Remise a zero. 
Est-ce RETURN ? 

Si oui, saut : pour ce nombre, on a termine. 
Est-ce la fleche arriere ? 
Non ; saut. 



FLECHE ARRIERE 



Si on est egal a HTAB, on ne doit plus reculer. 

Sinon, d'accord. 

Retour jusqu'a I'effacement. 

C0NTR6LE CARACTERES 



Plus petit que Q refuse. 

Plus grand ou egal refuse itou. 



AFFICHACE 

COUT fait son travail habituel. 
Caractere sur la pile. 
Position horizontale dans X. 

On a maintenant la valeur de Y 
pour stocker le caractere, plus loin. 

Recuperation du caractere. 

Si ce nest pas RETURN, on saute. 

O EH FIN DE CHAINE — 

dans Taccumulateur. 
Incrementation normale de Y. 

Attention ! si Ton a atteint la longueur limite, il va falloir 
ajuster Y ! 

Cest fait ! 

STOCKACE DU CARACTERE 



Ou 81 devient31 , etc. 

Cest ici qu'il nous faut la vraie valeur de Y. 

Si I'accumulateur contient 0, termine. 



36 



GUY HACHETTE 



ft*frt 

370 


: E4 


07 




CPX 


$07 




372 


: 90 


A A 




BCC 


$031 E 




374 


BQ 


AD 




BCS 


$0323 




376 


20 


BE 


DE 


JSR 


SDEBE 


1 


379 


20 


E3 


DF 


JSR 


$DFE3 


- 


37C 


A IT 

A5 


n ft 

B8 




LDA 


SB8 




37 E 


48 






PHA 






OTP" 

37 F 


A5 


B9 




LDA 


$B9 




ft ft i 

381 


48 






PHA 






382 


A9 


9A 




LDA 


£$9A 


— 


384 


85 


B8 




STA 


i*» n ft 

SB8 




386 


a n 

A9 


ft" ft 

03 




LDA 


£$03 




Job 


o c 

85 


n r\ 
OV 




STA 


ft ft. 

$B9 








Of 






5DD67 


— i 




Aft 






Dl A 

rLA 




_ 


38E 
390 


85 
68 


B9 




STA 
PLA 


$B9 




391 


85 


B8 




STA 


$B8 




393 


A6 


83 




LDX 


$83 


1 


395 


A4 


84 




LDY 


$84 


J 


397 


4C 


2D 


EB 


JMP 


$EB2D 





Si on est plus petit que la limite, vers curseur. 
Si on est plus grand ou egal, vers DEC, 
TRANSFERT DAMS LA VARIABLE 



CHKCOM teste la virgule et PTRGET cherche la variable. 

Sauvegarde de I adresse du dernier caractere obtenu par 
CHRGET... sinon on se plonte. 



On indique 6 TXTPTR l adresse du nombre saisi 
(ilse termine par un 0), 

FRMNUM va evaluer cette formule (pointee par TXTPTR) 
et mettre le resultat dans FAC. 

Rendons a TXTPTR ce qui n'est pas a Nestor ! 



MOVMF transfere FAC a l adresse indiquee. TERMINE. 



LOCNBR SUR 40 COLONNES 



Pour fonctionner sur un ecran de 40 colon- 
nes, LOCNBR doit au prealable etre cor- 
rige par le petit patch ci-contre. En fait, on 
se contente de remplacer ladresse $57B 
par $24 (CH = position horizontale du cur- 
seur). La routine ainsi obtenue est memo- 
risee sous le titre LOCNBR40. 



250 REM Patch pour 40 colonnes (+40 au lieu de 80 a 

la ligne Basic 140) 
260 FOR I = 1 TO 15: READ A,R: POKE A,R: NEXT : 

PRINT D$"BSAVE LOCNBR40,A$300,L154" 
270 DATA 783,134,784,36,785,234,803,198,804,36,805, 
234 . 825 . 1 65 , 826 , 36 , 827 r 234 , 832 , 1 98 . 833 , 36 , 834 , 
234,849,166,850,36,851 ,234 



Que fait cette routine de I' Applesoft ? elle affecte la valeur trouvee apres le 
signe = a la variable qui est pointee par CHRGET, Voici un moyen de l utiliser,.. 



300 : 


20 Bl 00 


JSR 


$00B1 


303 r 


4C 46 DA 


JMP 


$DA46 



100 TEXT : HOME : GOSUB 180 

110 CALL 768, A = 7999 

120 PRINT A 

130 LIST 110,120 

140 PRINT : PRINT "300: 20 Bl 00 JSR 00B1 ; CHRGET" 

150 PRINT "303: 4C 46 DA JMP DA46 ; LET" 

160 VTAB 23: PRINT "(M)ENU DE DISQUETTE ";: GET R$: VTAB 22: PRINT : IF R$ = "M" OR R$ = "m" 

THEN PRINT CHR$ (4)"RUN MENU" 

170 END 

180 POKE 768,32: POKE 769,177: POKE 770,0: POKE 771,76: POKE 77270: POKE 773,218: RETURN 



TREMPLIN MICRO 



gUjgjUjgil nestor 



INITIATION AU LANG ACE MACHINE 



Que fait FOUT ($ED34) t Cette routine utilitaire cree lout simplement une chame de chiffres 
dans FBUFFR (a partir de $100). Cette chame correspond a la voleur de FAC. Pour controler le 
fonctionnement de FOUT, nous placons un nombre dans FAC par I'intermediaire de CHKCOM 
($DEBE) et FRMNUM ($DD67). 

A la sortie de FOUT, Y et A pointent sur la chaTne. On a done $1 dans Y et dans A r d'ou le DEY 
de notre petite routine... qui met Y a 0. On aurait pu le laisser d 1 et lire par LDA $DFF,Y. 
Attention ! FOUT modifie FAC. Bien entendu, I'Applesoft a prevu une routine qui remplace 
notre affichage octet par octet : e'est STROUT ($DB3A) qui affiche une chame pointee par Y,A... 
exactement ce qui! nous faut (notez que la chame lue dans FBUFFR se termine par un zero). 



100 


TEXT : HOME : PRINT CHR$ (21): GOSUB 




CHR$ (4)"RUN MENU" 




200 








190 


END 


110 


INVERSE : PRINT "QUE FAIT FOUT. ROU 








TINE UTILITAIRE ED34 ?": NORMAL 


200 


FOR 1 = 768 TO 820: READ R: POKE l,R: 


120 


PRINT "Placons la valeur 123 dans FAC:" 




NEXT : RETURN 




130 


LIST 50; PRINT 


210 


DATA 32,190,222,32,103,221.32,52,237, 




136,185,0,1,240,6,32,237,253,200,208, 


140 


CALL 768,123 




245,96 


150 


PRINT : CALL 790 


220 


REM Routine d'affkhage du programme 


160 


VTAB 22; PRINT 




LM ci-dessus 


170 


VTAB 24: PRINT "(M)ENU DE DIS 
QUETTE ";: GET R$: VTAB 22: PRINT 


230 


DATA 169,10,133,6,160,0,162,3,134,59, 
132,58,32,208,248,24,165,47,26,101,58, 


180 


IF RS = "M" OR R$ = W THEN PRINT 




168,144,2.230,59,1 98,6,208,236,96 



300 


20 


BE 


DE 


JSR 


DEBE 


Transmission 
J du nombre a FAC. 




303 


20 


67 


DD 


JSR 


DD67 


Meme resultat, 


306 
309 


20 

88 


34 


ED 


JSR 
DEY 


ED34 




FOUT(Y = l etA = 0) 
Y = 0. 


mais en mode 
normal 


30A 


B9 


00 


01 


LDA 


010G r Y 








30D 


F0 


06 




BEQ 


0315e + 06e 


Affichage 

en mode inverse. 


300 : 20 BE DE JSR DEBE 


30F 
312 


20 
C8 


ED 


FD 


JSR 
INY 


FDED 




303: 20 67 DD JSR DD67 
306: 20 34 ED J5R ED34 


313 


D0 


F5 




BNE 


030A e-0Be 






309: 4C 3A DB JSR DB3A 


315 


: 60 






RTS 






Retour. 





GUY-HACHETTE 



INITIATION AU LANGAGE MACHINE 



NESTOR 



CATIMP1 



CATALOG (80 colonnes) ou CAT (40 coionnes), pour toul slot 
compris entre 4 et 7 (drive 1 ou 2), avec ou sans impression. 

5YNTAXE : BRUN CATIMP1 (en mode direct ou a partir 
d'un programme Bask) — BLOAD CATIMP1, 
puis CALL 768 possible a partir d un programme, mais pas en 
mode direct (fonctionne, mais avec SYNTAX ERROR). 



20 35 FD 

C9 CF 

F0 04 

C9 EF 

DO 04 



JSR FD35 

CMP £CF 

BEQ 0346 

CMP £EF 

BNE 034A 



300 


: A9 


16 




LDA 


£16 


302 


: 85 


25 




STA 


25 


304 


: 20 


42 


FC 


JSR 


FC42 


307 


. AO 


03 




LDY 


£03 n 


309 


A9 


86 




LDA 


£86 


30B 


20 


3A 


DB 


JSR 


DB3A _ 


30E 


20 


35 


FD 


JSR 


FD35 


311 


C9 


84 




CMP 


£B4 


313 


90 


F9 




BCC 


03OE 


315 


C9 


B8 




CMP 


£B8 


J 1 / 




ro 




□ Lb 


030E _ 


319 


8D 


A6 


03 


STA 


03A6 


31C 


A2 


02 




LDX 


£02 


31E 


20 


4C 


F9 


JSR 


F94C 


321 


20 


35 


FD 


JSR 


FD35 


324 


C9 


Bl 




CMP 


£81 


326 


90 


F9 




BCC 


0321 


328 


C9 


B3 




CMP 


£B3 


32A 


B0 


F5 




BCS 


0321 


32C 


8D 


A9 


03 


STA 


03A9 


32F 


A2 


03 




LDX 


£03 


331 


20 


4C 


F9 


JSR 


F94C J 


334 


AO 


03 




LDY 


£03 "I 


336 


A9 


93 




LDA 


£93 J 


338 


20 


3A 


DB 


JSR 


DB3A 



CUR5EUR 



] 
] 



CV = $16(VTAB 23). 

CLREOP (le CALL - 958 du Basic) efface les lignes 23 et 24. 
AFFICM ACE TEXTE 1 

Adresse du texte n°l dans Y et A. 
STROUT off iche la ehaine 
qui se termine parO. 



SLOT-DRIVE : 



SLOT (4 a 7) 

RDCHAR attend un caractere. 
Plus petit que 4, il est refuse. 

Plus grand ou egal a 8, il est refuse aussi. 
Numero du SLOT stocke a so place dans TEXTE3. 
PRBL3 affiche A plus un espace (x - 1). 



DRIVE 1 OU 2 

RDCHAR encore. 

Plus petit que 1 , refuse. 
Plus grand que 3, refuse. 

Numero du DRIVE stocke a so place dans TEXTE 3. 
\ off iche A plus deux espaces fx - 1), 



AFFICHAGE TEXTE 2 

Adresse du texte. 
5TROUT fait son travail. 

(0)111 POUR IMPRIMER 7 

RDCHAR. 

Si c'est le O majuscule, saut. 

Si ce n'est pas le o minuscule, saut. 



tO> = IMP: 



( s uite page 40) 



TREMPLIN MICRO 



39 



346 


* A9 


01 

W 1 






1 DA 


t (31 


— 1 


348 


: DO 


02 






BNE 


034C 


J 


34 A 


: A9 


GO 






LDA 


£00 




34C 


: 48 








PHA 






o4D 


A C 


36 






i rv a 

LDA 


36 




J4r 


• DC 

: co 


fix. 
00 






CT A 

b 1 A 


06 




351 


: A5 


37 






LDA 


37 




O JO 


AS 

. O J 


w / 






C.TA 


fJ7 




355 


68 








PLA 






356 


I"/T 

; F0 


03 






8EQ 


035B 




nrn 

358 


20 


95 


FE 




J5R 


FE95 




35B 

•J J u 


AO 


QO 






LDY 


£00 

V V 




35D 


B9 


9D 


03 




LDA 


039D.Y 




360 


99 


00 


02 




STA 


0200 ,Y 




363 


C8 








INY 






364 


C9 


80 






CMP 


Ann 

£8D 




366 


DO 


F5 






BNE 


035D 


— 


ooo 


AD 


1 c 
i r 






1 HA 


1 r 


— 1 




in 


fl A 






RAAf 

D (VI 1 


ni77 
wo/ / 




JUL* 




01 






i nv 

LU 1 


two 




JO" 


AQ 


Aft 






i ha 






^71 
J/ l 


CO 

77 


m 

U J 


UZ 




CT A 
o 1 A 






174 


oo 








ncv 






17 R 


1 V 


PA 

rn 






RPI 
Dr L 


UoY 1 




377 


20 


03 


BE 




JSR 


BE03 




37A 


20 


66 


FC 




JSR 


FC66 




37D 


A5 


06 






LDA 


06 




37 F 


85 


36 






STA 


36 


J 


381 


A5 


07 






LDA 


07 


"1 


383 


85 


37 






STA 


37 


J 


385 


60 








RTS 






386 


53 


4C 


4F 


54 


2D 


44 52 


49 


393 


28 


4D 


29 


3D 


49 


4 50 


3A 


39D 


C3 


CI 


D4 


CI 


CC 


CF C7 


AC 



et RETURN 



Aceumulateur = 1 pour "0" ou "o" et saut. 

Sinon A = 0. 

En attente sur la pile. 

Pour revenir au Basic apres impression eventuelle. 



IMP ou mom r 

On depile vers A. 

Si c'est 0, on nimprime pas ; saut. 

A = 1. On a PR£1 (il faut rimprimante en 1 ). 



INSTRUCTION DAN5 LE BUFFER 



Le texte n°3 
est transfere 
dans le buffer. 



CATALOG, 56, Ol 



40 OU BO COLONNES 7 



Si on est en 80 colonnes, saut. 



On remplace ALOG, dans le buffer, 
par autant d'espaces ! 



Commande exteme de ProDOS. 
LF. 

CSW. 

et CSWH retablis. 
FIN DE PROGRAMME. 



TEXTES 



SLOT-DRIVE 



<M> = IMP : 



CATALOG SG, 01 



RACINE 



CALL 768,100. 



300 
303 
306 
309 



20 BE DE 

20 67 DD 

20 8D EE 

4C 2E ED 



JSR SDEBE 

JSR SDD67 

JSR $EE8D 

JMP $ED2E 



TESTE LA VIRGULE. 
MET LE N OMBRE DANS FAC. 
CALCULE LA RACINE CARREE. 
AFFICHE LA VALEUR TROUVEE. 



40 guyhachette 



INITIATION 



Clement RENARD 



GSDATEO 



UTILISATION 



BLOAD GSDATEO, puis CALL 768 ou BRUN GSDATEO. 



300 


1 8 






CLC 








301 


FB 






XCE 






Passage en mode natif pur. 


302 


C2 


30 




REP 


£30 




304 


AO 


00 


00 


LDY 


£0000 






307 


A9 


25 


03 


LDA 


0325 




Buffer a partir de $325. 


30A 
30B 


5A 
48 






PHY 
PHA 








30C 


A2 


03 


OF 


LDX 


£OF03 




ReadAscfiTime : $0F03. 


30F 


22 


00 


00 El 


JSL 


El 0000 






313 
314 


38 
FB 






SEC 

XCE 






Passage en mode emulation. 


315 
317 


A9 
20 


17 
47 


F8 


LDA 
JSR 


£17 
F847 




Adresse de la ligne 24. 


31A 


A0 


13 




LDY 


£13 




19 decimal dans Y (0 a 19). 


31C 


B9 


25 


03 


LDA 


0325 ,Y 




Recuperation. 


31F 


91 


26 




STA 


(26), Y 




Affichage par POKE. 


321 


88 






DEY 






Y = Y- 1. 


322 


10 


F8 




BPL 


031C 




Oui jusqu'a Y = inclus. 


324 


60 






RTS 






FIN. 



CSDATE2 



utilisation CALL 768, A$ ; PRINT A$ 



(suite page 42,1 



A9 14 
20 D5 E3 



LDA £14 
JSR E3D5 



TREMPtIN MICRO 



PREPARATION (variable - buffer) 



Longueur de la variable-dale : $14 (20). STRINI reserve de 
J I'espace pour une chame et cree un descripteur dans DSCTMP. 
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305 


: A5 


9E 




LDA 


9E 


307 


: 8D 


17 


03 


STA 


0317 


30A 


: A5 


9F 




LDA 


9F 


30C 


: 8D 


18 


03 


STA 


0318 


30 F 

Ol ft 

310 


1 8 
FB 






CLC 
XCE 




31 1 


C2 


30 




r\ f* rs 

REP 


£30 _ 


313 


AO 


00 


00 


LDY 


£0000 


316 


A9 


00 


00 


LDA 


$0000 


O 1 7 








pUV 
r n T 




31A 


48 






PHA 




31B 


A2 


03 


0F 


LDX 


£0F03 


31E 


22 


00 


00 El 


JSL 


E10000 


322 


38 






SEC 




323 


FB 






XCE 


_ 


324 


20 


BE 


DE 


JSR 


DEBE 


327 


20 


E3 


DF 


JSR 


DFE3 


32A 


85 


85 




STA 


85 n 


32C 


84 


86 




STY 


B6 


32E 


A9 


9D 




LDA 


£9D 


330 


AO 


00 




LDY 


£00 


332 . 


4C 


B7 


DA 


JMP 


DAB7 



Adresse de remplacement de la chaine installee dans le 
programme. 

ReadAscllTime 

Passage en mode natif pur. 

Adresse installee au debut de la routine. 

ReadAsciiTime : $0FQ3. 
Mode emulation. 

RECUPERATION 

Test de la virgule et recherche de la variable 
(adresse dans A et Y). 

Adresse placee dans FORPNT (pointeur pour COPY). 
Adresse du descripteur actuel. 

COPY deplace la chaine temporaire et libere sa place. 



CSCAT3 



Curiosite : vous envoyez " = T" el un CTRL-Q ou Y... ou C qui vous fait sortir du Moniteur. 
Peut etre interessant lorsque vous programme* en Basic. Vous pouvez ainsi obtenir I'heure, 
en tapant CALL 768 (la routine est relogeable). Si vous desirez consulter I'heure tres sou- 
vent, fournissez I'adresse de la routine a I'Ampersand : un simple & vous donnera I'heure. 



300 ; 


A0 


04 




LDY 


£$04 


Quatre tours de boucle. 


302 : 


B9 


OF 


03 


LDA 


$030F,Y 


Lecture d un caractere. 


305 : 


99 


FF 


01 


STA 


$01FF,Y 


Ecriture dans le buffer. 


308 : 


88 






DEY 




Y = Y - 1, 


309 : 


DO 


F7 




BNE 


$0302 


Oui jusqu'a 1 inclus. 


30B : 


84 


B8 




STY 


$B8 


dans TXTPTR. 


30D : 


4C 


70 


FF 


JMP 


$FF70 


SCAN lit le buffer et execute les instructions 


310 ; 


BD 


D4 


91 








313 ; 


8D 










= T, CTRL-Q et RETURN 



mmmrnt 



■HH 



mmmmmmmmmmmmmmm 

GUY-HACHETTt 



APPLE IIGS 



Stephan HADING ER 



ACCESSOIRE:ACCENT 



L'un des defauts de jeunesse de I'Apple IIGS est que, pour presque toutes les appli- 
cations de I'environnement Desktop, il est impossible de taper des minuscules accen- 
tuees et autres caracteres internationaux. 

Pourtant ces caracteres sont bel et bien presents dans les jeux de caracteres, mais 
leurs codes ASCII sont superieurs a 128 ($80 en hexa), ce qui les rend inaccessibles au 
clavier. L'accessoire du bureau ACCENT resoud ce probleme et permet ainsi de ren- 
trer tous les caracteres ayant des codes de 128 a 255 ($80 a $FF). 



LE PROGRAMME 

Vous pouvez : 

— soit assembler ACCENT avec f'assembleur 
ORCA/M de la disquette Workshop en faisant ; 

• ASSEMBLE ACCENT.SRC 

• LINK ACCENT KEEP = ACCENT 

• FILETYPE ACCENT NDA 

— soit, pour ceux qui ne disposer^ pos de Workshop, 
entrer dans le moniteur le recapitulatif hexa, puis 
le sauver par : 

• CREATE ACCENTJ$B8 

• BSAVE ACCENT r A$20Og,L2O48jSB8 

Ensuite, plocez l'accessoire dans le sous-directory 
SYSTEM, DESK. ACCS/ de rapplication sur laquelle 
vous voulez I'installer. Lancez cette application. 
L'occessoire "Minuscules Accentuees" sera desormais 
accessible par le menu Pomme. 

UTILISATION 

Des que vous selectionnez l'accessoire, il devient actif 
et une fenetre de presentation apparait ; il le restera 
meme si la fenetre n'est pas au premier plan, et ceci 
jusqu'a ce que vous le fermiez en cliquant dans la case 
de fermeture. 

Si la presence de la fenetre vous gene, cliquez dons le 
bouton "Cacher fenetre' et elle disparait, laissant 
neanmoins l'accessoire actif. Pour lo faire reapparaT- 



tre, appuyez simultanement sur Pomme et Option, 
puis sur Esc SANS RELACHER les deux autres touches. 

Lorsque vous voulez entrer un caractere special, 
appuyez simultanement sur Pomme et Option et 
RELACHEZ-LES. Des lors, l opplication est suspendue 
(le curseur ne clignote pas et la souris ne bouge plus 
car les interruptions sont inhibees) ; reportez-vous a 
la table de conversion (page 53) et tapez sur la touche 
correspondent au caractere souhaite ; celui-ci appa- 
raitra alors. 

Si vous avez appuye sur Pomme et Option et que vous 
desirez annuler votre demande de caractere special, 
appyyez sur une touche quelconque (sauf Esc) SANS 
RELACHER Pomme et Option. L'accessoire rend alors 
le controle 6 I'opplication. 

Cet accessoire de bureau est compatible avec tous les 
programmes, fonctionnant sous I'environnement 
Desktop, actuellement disponibles ; cependant, avec 
GS/ WRITE 1.0. la fenetre de presentation reste vide, 
bien que l'accessoire fonctionne correctement. 



N.B. : Certains jeux de caracteres comme Shaston oo 
Venice ne confiennenl pas tous les caracteres spe- 
eiaux. A vous de les decouvrir... Attention I dans certains pro- 
grammes comme GraphieWriter on VS Draw, les jeux de corac- 
teres ont ele "francises", mais seules les minuscules actentuees 
du clavier AZERTY y sont presentes. Leur utilisation est rendue 
inutile por le present occessoire et il vaut meme mieux ne pas les 
utiliser car les coracteres crochets et accolades en sont absents. 



TREMPLIN MICRO 



43 



* 



minuscules accentuees en accessoire de bureau (NDA) 



absaddr on 

65816 on 

keep ACCENT 

mcopy ACCENT . MACROS 

case off 



IDSection START 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
END 



14'OpenACC 
14'CloseACC' 
14'ActionACC 
14'lnltftCC' 

i2'S0143' 

C Minuscules Accentu' 
ll'$8E' 
c'escH**' 

11*13' 



OpenACC START 

using ACCData 

Ida >ACCActive 
beq Cont 
rtl 



Cont 



PushLong £0 
Push Long fACCParams 
_NewWt ndow 
plx 
pi a 
sta 
sta 
txa 
sta 
sta 



6,s 

>ACCWinPtr*2 



4 f s 

>ACCWmPtr 
10 

>ACCWinPtr 
IBRect 
£CtrlTitle 
£0 
£0 
£0 
£0 
£0 
£0 



PushLong 
Pu shLong 
PushLong 
PushLong 
Push Word 
Push Word 
PushLong 
PushLong 
PushLong 
PushLong 
_NewControl 
Pul lLong >Ctr lPtr 
PushLong >ACCWinPtr 
_SetSysWi ndow 



Ceux qui le souhaitent peuvent parfaitement 
remplocer. sur leur copte de travail, les fontes 
bidouillees (pardon, francisees) en les rem- 
placant par leurs homonymes americaines qui 
train en t un peu parlout. Simplement ils devront 
utiliser ACCENT pour saisir les e,e et autres b. A 
ce prix. ils auronl la possibility de saisir crochets, 
accolades el autres gateries. v. k 



prologue de 1 'accessoire 



raf raichissement maximal 
Activate, Update & MouseDown events 
titre de 1' accessoire 
e accent aigu 



ouverture de r accessoire 



; teste si deja ouvert 



ouvre la nouvelle fentre 



ATTENTION ! dans ces pages, nous 
avons porfois pre- 
sents les instructions sur 2 colonnes. 
Tenez alors compte des petites f leches. 



; cree le bouton de controle 



declare la fenetre comme une 
fenetre syst£me 
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Ida £$8000 

sta >ACCActive 

Ida £0 

sta >runstate 
rt 1 



ACCParams anop 

dc i2'78' 

dc 1 2' %1 100000010100000'' 

dc i4'ACCTitle' 

dc i4'0' 

dc i2'Q,0,Q,0' 

dc i 4 " " 

dc i2'0, 0,0, 0,0, 0,0, 0,0,0' 

dc i4'0' 

dc i2'Q' 

dc i4'0,0,Q' 

dc i'50,70,122,305' 

dc i4'*FFFFFFFF' 

dc i4'Q' 



; Parametres de la fenitre 



A ceux qui saisissenl en HEXA, je conseille de 
foire la sauvegarde en mode BIN sous un nom 
provisoire. AKSENT fera I'atfaire. Cela leur 
permettro d'uliliser SIGNATURE pour eontroler 
le travail de saisie. Larsque les controles se- 
ront satisfaisants, il leur suffira de taper : 
8 LOAD AKSENT CREATE ACCENT. T$B8 
BSAVE ACCENT,AS2Q90 ,12048 JSB8 ¥.JL 



; rectangle d'affichage 
; fen§tre au premier plan 



CtrlTitle dc 
dc 
dc 
dc 

BRect dc 
END 



il'14' 

c'Cacher fen' 

it'$90' 

c'tre' 

12'48,47,61,186' 



; texte du bouton de control e 
; e accent circonflexe 
; rectangle d'affichage 



ACCData DATA 
runstate dc 
ACCActive dc 
ACCTitle str 
ACCWinPtr ds 
CtrlPtr ds 
where ds 
CtrlHndl ds 
Rectangle dc 



i'0' 
l'O' 

"Accents' 
4 

4 
4 

i'0, 0,72, 235' 



; variables dlverses 

? accessoire act if ? 
; titre de la fenetre 



: 1 ieu de I 'evenement 



; rectangle de la fen?tre 
Ccoordonnees locales) 



lignel dc c'Minuscules accentu' ; texte affiche 

dc il'$8E' 

dc c'es,Cc) 1987' 

dc ii'0' 

Ugne2 dc c'S. HADINGER & TREMPLIN MICRO' 

dc 1 1 ' ' 

Ugne3 dc c'appuyez sur ' 

dc il'Sll' ; caractere Pomne 

dc c' et Option,' 

dc il'0' 

1 igne4 dc c'relachez, et tapez une lettre.' 

dc i 1 ' ' 

Hgne5 dc il'tll' 

dc c'-Opt ion-Esc fait r' 

dc ll'*8E' 

dc c'appara' 

dc ii'*94' 



(SUITE PAGE 46) 



TREMPLIN MICRO 



45 



dc 
dc 
END 



C tre. 
ii'O' 



CloseACC START 

using ACCData 

1 da >ACCAct i ve 
beq Ignore 
Pushlong >ACCWinPtr 
_CloseWindow 
Ida £0 

sta >ACCActive 
Ignore rtl 
END 



Guard on dispose de I'assembleur, on peut 

eviter une commande en faisant : 

ASML ACCENT.SRC FILETYPE ACCENT NDA 

II est inutile de saisir le fichier macros, I'as- 
sembleur fera le travail toul seul si vous lui 
dites poliment : 

MACGEN ACCENT SRC ACCENIMACROS 2/AINaUDE,'MI6.= 
N'omettez aucun caractere, espaces compris. y. k. 



fermeture de la fenetre 



ActionACC START 

using ACCData 

phb 
phk 
plb 
phy 
phx 

as I a 
tax 
jsr 
pla 
pla 
plb 
rtl 



; gestion des evenements 



(Act ionTable,x> 



Ceux qui disposenl d un systeme d'exploitation 
2.0, 3.0 ou 3.1 peuvent employer des fichiers 
compacted. Pour compacter un fichier, il faut 
avoir APW 1 .0 et lui envoyer la commande ; 

COMPACT ACCENT -0 ACCENTC 

Je vous laisse le soin de manipuler les fichiers 
par la suite. ACCENT comporte 2048 octets, 
ACCENT.C n'en contient que 1392. 
ATTENTION, le systeme 1.0 ne sait pas ma- 
nipuler les fichiers compactes, mais vous 
devriez penser a quitter cette vieillerie. v. K. 



ActionTable anop 

dc i' Ignore' 



dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 

ActionCursor 
Act ionMenu 
Act ionUndo 
Act ionCut 
Act ionCopy 
Act ionPaste 
Act ionClear 



Ignore 



anop 

rts 

END 



i ''Act ionEvent ' 
i ' Act ionRun' 
i 'ActionCursor' 
i'ActionMenu' 
i 'Act ionUndo' 
i ' Act ionCut' 
i 'Act ionCopy' 
i 'Act ionPaste' 
i 'Act ionCLear' 

anop 
anop 
anop 
anop 
anop 
anop 
anop 



evenement standard 
raf raichissement de 



accessaire 



ignore tous les autres evenements 



HADINGER mentionne GS. WRITE 1.0. Je lui 
pardonne cor il a ecrit cet article il y a quelques 
mois. Par contre je ne veux plus entendre porler 
de cette version. Au lieu de roler contre ses bugs, 
demande2 a votre concessionnaire la mise a jour 
2.0 (qui n est d'ailleurs pas pcrfaite). v. x 
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Act ion Event START 

using ACCData 
evtptr equ 5 



phd 
tsc 
ted 
Idy 
Ida 
ata 
iny 



£*0A 

*evtptr§,y 

where 

► 



Activate anop 

PushLong £0 
_GetPort 

PushLong ACCWinPtr 
_SetPort 

PushLong ACCWinPtr 
_DrawControl s 
_SetPort 
Ignore2 rts 

MouseDown PushWord £0 

PushLong £CtrlHndl 

PushLong where 

PushLong ACCWinPtr 

_FindControl 

1 da 1 , s 

beq mousefin 

PushWord £0 
PushLong where 
PushLong £0 
PushLong CtrlHndl 
_TrackControl 
pl a 

cmp 1 , s 

bne mousefin 

PushLong ACCWinPtr 
_Hi deWi ndow 

mousefin pla 
rts 

Update push long ACCWinPtr 
_Begi nUpdate 
PushLong £Rectangle 
_EraseRect 
PushWord £7 
PushWord £10 
JloveTo 

PushLong £1 ignel 
_DrawCStr ing 



Cont 



iny 
Ida 
sta 
Ida 
pld 
cmp 
bne 
brl 
cmp 
beq 
cmp 
bne 



*evtptr§ ,i 

where+2 

•evtptrS 

£6 
Cont 
Update 
£1 

MouseDown 
£8 

Ignore2 



sauve le port 

utilise le port de la fenetre 
dessine le bouton 



; a-t-on clique sur le bouton 



; gestion du bouton 



; cache la fenetre 
mais 1'accessoire reste act if 



; efface la fenetre 



; affiche le texte 
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PushWord £20 
_MoveTo 




► _MoveTo 
PushLong £1 igne4 
_Dr awCStr ing 


PushLong £1 igne2 
_DrawCStr ing 




PushWord £7 
PushWord £70 


PushWnrd f7 
PushWord £33 
_MoveTo 




_MoveTo 

PushLong £1 igne5 
_DrawCStr ing 


PushLnna fliane3 
_DrawCStr ing 




PushWord £0 
PushWord £22 


PushWord £7 
PushWord £43 ► 




_MoveTo 
PushWord £235 
PushWord £22 


_LineTo 


; dessine les lignes de separation 


PushWord £0 






PushWord f45 






_MoveTo 






PushWord £235 






PuRhWorri f4S 






^LineTo 






PushLong ACCWinPtr 






_DrawControl s 


; dessine le bout on 


push long ACCWinPtr 






_EndUpdate 






rts 






END 






InitftCC START 


; initialisation de 1'accessoire 


using ACCData 






Ida £0 






sta >ACCActive 






sta >runstate 






rtl 






END 






ActlonRun START 


; raf raichissement 


using ACCData 






phb 






phk 






plb 






Ida runstate 


; pr^cedente demande annu!6e ? 


bne 1 ibre 






shortm 






Ida >*E0CQ61 


; est-ce que Porane ET Option 


bpl end 


; sont appuyfces 


Ida >$E0C062 






bpl end 
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I oopl 



Cont2 
nogood 



end 
ok 

loop2 



1 ibre 



1 ibend 



set 




Ida 


>$EQCQ61 


Dpi 


ok 


Ida 


>$E0C062 


bpl 


ok 


Ida 


>SE0C00Q 


bpl 


1 oopl 


cmp 


£$9B 


one 


Cont2 


long 





attente d'une louche 



Push Long ACCWinPtr 

JShowWindow 

Push Long ACCWinPtr 

_Se I ectWindow 

inc runs t ate 

shortm 



>$E0C010 



Ida 
pip 

long 

plb 

rts 



anop 

longa off 

Ida >$EQC000 ► 

_PostEvent 
pla 

bra nogood 



shor 

Ida 

bmj 

Ida 

bmi 

stz 

long 

plb 

rts 

END 



tm 



>*E0C061 
1 tbend 
>*E0C062 
1 i bend 
runstate 



; si ESC tape. . . 



; ...reaffiche la fenetre... 

; , ,.et ta place au premier plan 
; annul at ion demandee 



■> bpl loop2 
sec 

SDC £*40 
era £$80 
long 

and £$0GFF 
PushWord £0 
PushWord £3 
PushWord £0 
pha 

; envoie I'evenement clavier 
; a 1 'appl icat ion 



; attend que Pomme ET Option 
; soient relachees 

ATTENTION ! dans ces pages, nous 
avons parrots pre- 
sents les instructions sur 2 coionnes. 
Tenez afors compte des petites f leches. 



ACCENT. MACROS 



1 


MACRO 


12 


sta &addr2+2 


23 


ldy £&addr2 


2 


& lab pul 1 long 8.addr 1 , 


13 


MEXIT 


24 


pul lword Sraddrl ,y 


3 


&lab ANOP 8,addr2 


14 


.a 


25 


ldy £&addr2+2 


4 


AIF C:8,addrl=0, .a 


15 


pul lword 


26 


pu 1 1 word &addr 1 ,y 


5 


AIF C:8.addr2=0, .b 


16 


pul lword 


27 


MEND 


6 


LCLC 8.C 


17 


MEXJT 


28 


MACRO 


7 


&C AMID 8,addr 1,1,1 


18 


.b 


29 


&lab pul lword &sysopr 


8 


AIF »&C"«"", .zeropage 


19 


pul lword &addrl 


30 


&lab ANOP 


9 


pul I word &,addrl 


20 


pul lword &addrl+2 


31 


pla 


10 


st a 8.addr2 


21 


MEXIT 


32 


AIF c :&sysopr=0 r .end 


11 


pul iword &addrl+2 


22 


.zeropage 


33 


sta &sysopr 
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34 


,end 


58 


.stack 


35 


MEND 


59 


pushword &addr+2,s 


36 


MACRO 


60 


pushword 8raddr + 2,s 


37 


&lab pushlong &addr ,&of f set 


61 


MEXIT 


38 


&. lab ANOP 


62 


.zeropage 


39 


LCLC 8.C 


63 


Idy £&o£fset+2 


40 


LCLC 8.REST 


64 


pushword &addr,y 


41 


&C AMID 8,addr,l,l 


65 


ldy £&offset 


42 


AIF "kC'^'f" ..immediate 


66 


pushword &addr,y 


43 


A1F "&C u = tt , .zeropage 


67 


MEND 


44 


AIF C:&offset=0, .nooffset 


68 


MACRO 


45 


AIF "ioffsef ='s" , .stack 


69 


8.1 ab pushword &sysopr 


46 


push word &addr+2,&of fset 


70 


&lab ANOP 


47 


pushword &addr t B,of f set 


71 


AIF c:&sysopr=Q , .b 


48 


MEXIT 


72 


LCLC &C 


49 


.noof fset 


73 


LCLC &REST 


50 


pushword &addr+2 


74 


LCLA &BL 


51 


pushword &addr 


75 


&C AMID "isysopr" ,1,1 


52 


MEXIT 


76 


&BL ASEARCH "&sysopr" , 


53 


. immediate 


77 


AIF &BL>0, .a 


54 


&REST AMID &addr,2 t L:&addr-l 


78 


&BL SETA L:&sysopr+l 


55 


dc Ii'$F4M2 / (8.REST)u-i6' 


79 


.a 


56 


dc I1'$F4'.I2'8J?EST' 


80 


&REST AMID "&sysopr" ,2 


57 


MEXIT 


81 


AIF r&C's-JE" ).AND.CS 



FICHI6R 
DE TYPE $B8 



ACCENT 



2000: 


04 00 


00 


00 


00 


00 


00 


00 


69 


04 


00 


00 


00 


OA 


04 


01 


F280 


B6 


pha 


2010: 


00 00 


01 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


7E01 


87 


MEXIT 


2020: 


00 00 


01 


00 


00 


00 


00 


00 


2C 


00 


40 


00 


20 


20 


20 


20 


B6ED 


88 


. immediate 


2030: 


20 20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


1400 


89 


dc Il'$F4' ,I2'&REST' 


2040: 


F2 69 04 


00 


00 


30 


00 


00 


00 


El 


01 


00 


00 


00 


02 


00 


5073 


90 


MEND 


2050: 


00 CB 


03 


00 


oc 


00 


00 


43 


01 


20 


20 


4D 


69 


6E 


75 


73 


755B 


91 


MACRO 


2060: 


63 75 


6C 


65 


73 


20 


4] 


63 


63 


65 


6E 


74 


75 


8E 


65 


73 


8465 


92 


&lab str &stnng 


2070: 


5C 4B 


2h 


2A 


0Q AF 


2B 


01 


00 


F0 


01 


68 


F4 


0D 


00 


F4 


E024 


93 


&lab dc if 1 :&string' , 


2080: 


00 00 


F4 


DO 


00 


F4 


C4 


00 


A2 


0E 


D? 


22 


00 


00 


El 


FA 


D762 


94 


MEND c'&string' 


2090: 


68 83 


06 


8F 


37 


01 


00 


8A 


83 


04 


8F 


35 


01 


00 


F4 


00 


D882 


95 


MACRO 


20AD: 


00 F4 


on 


00 


AF 


37 


01 


00 


48 


AF 


35 


01 


00 


48 


F4 


00 


9F44 


96 


8. lab long 


2080: 


00 F4 


?! 


01 


F4 


00 


00 


F4 


12 


01 


F4 


00 


00 


F4 


00 


00 


D2F9 


97 


&iab ANOP 


20CO: 


F4 00 


on 


F4 


00 


00 


F4 


00 


00 


F4 


00 


00 


F4 


00 


00 


F4 


FDBB 


98 


rep £%001 1O000 


20 DO: 


00 00 


Fm 


DO 


00 


F4 


00 


00 


A2 


10 


0? 


22 


00 


00 


El 


6B 


BA0E 


99 


longa on 


20EO: 


6F 3? 


01 


DO 


68 


8F 


3B 


01 


00 


AF 


37 


01 


00 


48 


AF 


35 


DB0F 


100 


longi on 


20FO: 


01 00 


48 A2 


0E 


48 


22 


00 


00 


El 


A9 


00 


80 


8F 


28 


01 


C12B 


101 


MEND 


2100: 


00 A9 


00 


00 


BF 


29 


01 


00 


68 


4E 


00 


AO 


CO 


2D 


01 


00 


EAA9 


102 


MACRO 


2110: 


00 00 


00 


00 


90 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


0000 


103 


&lab shortm 


2120: 


00 00 


DO 


00 


00 


90 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


oooo 


104 


&lab ANOP 


2130: 


00 00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


0000 


105 


sep £%00 100000 


2140: 


00 00 


00 


00 


00 


00 


30 


32 


00 


44 


00 


7A 


00 


31 


01 


FF 


1623 


106 


longa off 


2150: 


FF FF 


FF 


00 


00 


00 


00 


0E 


43 


61 


63 


68 


65 


72 


20 


66 


06D7 


107 


MEND 


2160: 


65 6E 


90 


74 


72 65 


30 


00 


2F 


00 


30 


00 


BC 


00 


00 


00 


0506 


108 


MACRO 


2170: 


00 00 


07 


41 


63 63 


fi5 


oE 


74 


73 


00 


00 


00 


00 


00 


00 


15CB 


109 


8. lab _NewControl 


2160: 


00 00 


00 


00 


00 


00 


00 


CO 


00 


00 


00 


00 


00 


00 


48 


00 


6148 


110 


8Jab ldx £$0910 


2190: 


EB 00 


40 


69 


6E 


75 


73 


63 


75 


6C 


65 


73 


20 


61 


63 


63 


E95fc 


111 


jsl $E10000 


21 AO: 


65 6E 


74 


75 


8E 


65 


73 


21 


28 


63 


29 


20 


31 


39 


38 


37 


31 FB 


112 


MEND 



82 Ida &sysopr 

83 pha 

84 MEXIT 

85 .b 
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116 
L 17 
118 



121 
122 
123 



113 MACRO 

114 8. lab _DrawControls 

115 &lab ldx £$1010 
jsl $E100CO 
MEND 
MACRO 

119 &lab _FindControl 

120 8-lab ldx £51310 
jsl SE10000 
MEND 
MACRO 

124 Mab JTrackControl 

125 &lab ldx £$1510 

126 jsl $E10000 

127 MEND 

128 MACRO 

129 8,1 ab _PostEvent 

130 &lab ldx £$1406 

131 Jsl $£10000 

132 MEND 

133 MACRO 

134 &lab _NewWindow 

135 &lab ldx £$090E 

136 jsl $E10000 

137 MEND 

138 MACRO 

139 8,1 ab _CloseWindow 

140 &lab ldx £$0B0E 
jsl $E10000 
MEND 
MACRO 

144 8Jab _SelectWlndow 

145 &lab ldx £$U0E 
jsl $E10000 
MEND 
MACRO 

149 &lab _HideWindow 

150 &lab ldx £$120E 
jsl $E10000 
MEND 
MACRO 

154 8, lab _ShowWindow 

155 8,1 ab ldx £$130E 

156 jsl $E10000 

157 MEND 

158 MACRO 

159 8, lab _BeginUpdate 

160 &lab ldx £$1E0E 

161 jsl $E10000 

162 MEND 

163 MACRO 

164 8. lab _EndUpdate 

165 8, lab ldx £$1F0E 

166 jsl $E10000 

167 MEND ► 



141 
142 
143 



146 
147 
148 



151 
152 
153 



2160: 


00 53 


2E 


20 48 


41 44 


49 4E 


47 


45 52 


20 


26 


20 54 


AB9D 


21 CO: 


52 45 


4D 


50 4C 


49 4E 


20 


4D 


49 


43 


52 


4F 


00 


61 70 


2882 


21D0: 


70 75 


79 


65 7A 


20 73 


? c i 


72 


20 


11 


20 


65 


74 


20 4F 


5750 


21E0: 


70 74 


69 


6F 6E 


2C 00 


72 65 


6C 


61 


63 


68 


65 


7A 2C 


F9D0 


21F0: 


20 65 


74 


20 74 


61 70 


65 


7A 


20 


75 6E 


65 


20 


6C 65 


9E96 


2200: 


74 74 


72 


65 2E 


00 11 


2D 


4F 


70 


74 


69 


6F 


6E 


2D 45 


BF16 


2210: 


73 63 


20 


66 61 


69 74 


20 


72 


8E 


61 


70 


70 


61 


72 61 


CB2F 


2220: 


94 74 


72 


65 2E 


00 AF 


2B 


01 


00 


F0 


18 


AF 


37 


01 00 


36D7 


2230: 


46 AF 


35 


01 00 


48 A2 


0E 


0B 


22 


OD 


DO 


El 


A9 


00 00 


30DC 


2240 : 


BF 26 


01 


00 6B 


8B 4B 


AB 5A 


DA 


OA 


FC 


OE 


02 68 


E603 


2250: 


68 AB 


6B 


22 02 


23 02 


D4 


03 


22 


02 


22 


02 


22 


02 22 


A22C 


2260: 


02 22 


02 


22 02 


22 02 


60 


OB 


38 


58 


AO 


OA 


00 


B7 05 


42D5 


2270: 


8D 3D 


01 


cb ce 


B7 05 


8D 


3F 


01 


H? 


05 


28 


C9 


06 00 


668A 


22SD : 


DO 03 


62 


97 00 


C9 01 


00 


FO 


38 


C9 


08 


on 


DO 


3 2 F4 


D9A5 


2290; 


00 00 


F4 


00 00 


A2 04 


1C 


22 


00 


00 


El 


AD 


37 


0! 48 


B4E6 


22A0: 


AD 35 


0! 


48 A2 


04 IB 


22 


00 


00 


£1 


AD 


37 


01 


46 AD 


69C9 


2260: 


35 01 


46 


A2 10 


10 22 


00 


00 


El 


A2 


04 


18 


22 


00 00 


0626 


22C0: 


El 60 


F4 


00 00 


F4 00 


00 


F4 


41 


01 


AD 


3F 


01 


48 AD 


EE41 


22D0: 


3D 01 


46 


AD 3? 


01 48 


AD 


35 


91 


48 A2 


10 


13 


22 00 


90C5 


22E0: 


00 El 


A3 


01 F0 


34 F4 


00 


00 


AD 


3F 01 


48 


AD 


3D 01 


1F8D 


22F0: 


48 F4 


00 


00 F4 


00 00 


AD 


43 


01 


46 


AD 


41 


01 


48 A2 


BA42 


2300: 


10 15 


22 


00 00 


El 68 


C3 


01 


DO 


OF AD 


37 


01 


48 AD 


A60D 


2310: 


35 01 


48 


A2 0E 


12 22 


00 


00 


El 


68 


60 


AD 


37 


01 48 


F438 


2320: 


AD 35 


01 


48 A2 


0E IE 


22 


00 


00 


El 


F4 


00 


00 


F4 45 


6229 


2330: 


01 A2 


04 


55 22 


00 00 


El 


F4 


07 


00 


F4 


OA 


00 


A2 04 


D69E 


2340: 


3A 22 


00 


00 El 


F4 00 


DO 


F4 


4D 


01 


A2 


04 


A6 


22 00 


1EE1 


2350: 


00 El 


F4 


07 00 


F4 14 


00 


A2 


04 


3A 


22 


00 


OD 


El F4 


C6BB 


2360 : 


00 00 


F4 


6C 01 


A2 04 


A6 


22 


00 


DC 


21 


;t 


07 


00 F4 


C39F 


2370: 


21 00 


A2 


04 3A 


22 00 


00 


El 


F4 


OO 


00 


F4 


89 


01 A2 


0B1B 


2380: 


04 A6 


22 


00 00 


El F4 


07 


00 


F4 


26 


OG 


ft 


04 


3A 22 


44C9 


2390: 


00 00 


El 


F4 00 


00 F4 


A2 


c: 


A2 


04 A6 


22 


00 


00 El 


El BB 


2-ftQ: 


F4 07 


00 


F4 4c 


00 A2 


04 


3A 


22 


00 


00 


E ! 


r 4 


00 00 


3C0C 


23B0 : 


F4 CI 


01 


A2 04 


A6 22 


00 


00 


e: 




00 


00 


F4 


16 00 


4B03 


23C0: 


A2 04 


3A 


22 00 


DO El 


F4 


EB 


00 


F4 


16 


00 


A2 


04 3E 


EAAE 


23DD : 


22 00 


AO 


El F4 


00 00 


F4 


2D 


00 


A2 


04 


3A 


22 


00 DO 


EA1A 


23E0 : 


El F4 


EB 


00 F4 


2D 00 


A2 


04 


3C 


22 


00 


00 


2! 


AD 37 


47AA 


23F0: 


01 48 


AD 


35 01 


48 A2 


10 


10 


22 


00 


00 


El 


AD 


37 01 


141E 


2400: 


48 AD 


35 


01 48 


A2 0E 


IF 


22 


00 


00 


El 


60 


A* 


00 00 


9Q4E 


2410: 


8F 2B 


01 


00 8F 


29 01 


00 


66 


68 


4B 


hE 


AD 


29 


01 DO 


F407 


2420: 


78 E2 


20 


AF 61 


CO E0 


10 


48 


AF 


62 


CO 


EC 


10 


42 08 


6E8D 


2430: 


7B AF 


61 


CO E0 


10 3E 


AF 


it 


[0 


EO 


10 


36 


AF 


00 CO 


24DE 


2440: 


E0 10 


EE 


C9 9B 


DO 20 


C2 


30 


AD 


37 


01 


48 


AD 


35 01 


CA34 


2450: 


4B A2 


OE 


13 22 


00 00 


El 


AD 


37 


01 


48 


AD 


35 


01 48 


7666 


2460: 


A2 OE 


11 


22 00 


00 Zl 


EE 29 


V: 


22 


20 


AF 


10 


CO EO 


FE3D 


2470: 


2B C2 


30 


AB 60 


AF 00 


CO 


Efl 


10 


FA 


38 


E9 


40 


09 BO 


2868 


2480: 


C2 30 


29 


FF 00 


F4 00 


CD 


F4 


03 


00 


F4 


00 


00 


48 A2 


8FE3 


2490: 


06 14 


22 


00 00 


El 6B 


80 


01 


E2 


20 


AF 


61 


EO 


EO 30 


BAB8 


24A0: 


09 AF 


62 


CO E0 


30 03 


9C 29 


01 


C2 


30 


AB 


60 


F5 04 


ODAP 


24B0: 


00 00 


00 


30 00 


F5 04 


00 


M 


00 


El 


01 


>- c . 


04 


00 08 


E910 


24C0: 


00 00 


02 


F5 04 


00 OC 


00 


08 


03 


F 5 


03 


DO 


31 


00 26 


CD26 


24D0: 


01 F5 


02 


F0 3E 


00 C4 





F5 


02 


00 


41 


00 


C4 


00 F5 


33DB 


24E0: 


03 00 


4F 


00 37 


01 F5 


03 00 


56 


00 


35 


01 


Fj 


03 00 


3F06 


24F0: 


60 00 


37 


01 F5 


03 00 


65 


00 


35 


01 


F5 


02 


FO 


6A 00 


D87C 


2500: 


21 01 


F5 


02 00 


6D 00 


2\ 


o: 


F5 


02 


FO 


70 


00 


12 01 


8512 


2510: 


F5 02 


OD 


73 00 


12 01 


F5 


03 


00 


9C 00 


39 


01 


F5 03 


5F43 


2520: 


00 Al 


[•0 


3B 01 


F5 03 


00 


A5 


00 


37 01 


c 5 


03 


00 AA 


FF54 
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2530; 
2540: 
2550: 
2540: 
2570: 
2580: 
2590: 
25A0: 
25B0: 
25C0: 
25D0: 
25E0: 
25F0: 
2600: 
2610: 
2620: 
2630; 



03 
FC 
22 
F5 
00 
02 
02 
02 
67 
41 
F5 



35 
F5 
00 
01 
02 
02 
18 
22 
F5 
00 



02 

00 93 
02 3D 01 

01 F5 



2650: 
2660: 
2670: 
2680: 
2690: 
26A0: 
2680: 
26CO; 
26D0: 
26E0: 
26F0; 
2700: 
2710: 
2720: 
2730: 
2740: 



02 
E7 
4D 
F5 



02 

00 08 
02 45 01 

01 F5 02 



D3 
01 

02 

cc 

29 
FS 

0(3 



02 
38 
A2 
F5 
00 
D3 
01 

02 00 
23 04 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 



F5 03 00 

00 ce oo 

01 37 01 

01 F5 02 

02 GO 10 
14 02 22 
22 02 F5 
F5 02 00 

00 2C 02 
02 37 01 

01 F5 02 

02 00 84 
8B 02 3D 
35 01 F5 
F5 02 00 
00 C7 02 
02 37 01 

F5 02 

02 00 04 
IE 03 6C 
89 01 F5 
F5 02 FO 

00 M 03 

03 37 01 

01 F5 03 

02 00 05 
14 Q4 37 
29 01 F5 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 

COHPLETEZ 



89 00 2B 
2D 01 F5 
F5 03 00 
00 08 02 
02 23 02 
02 F5 02 
02 00 1A 
IE 02 22 
30 01 F5 
F5 02 00 

00 68 02 
02 41 01 

01 F5 02 

02 00 A5 
B3 02 43 
37 01 F5 
F5 02 00 

00 EA 02 

03 4D 01 

01 F5 02 

02 FO 4F 
6? 03 CI 
37 01 F5 
F5 02 00 

00 DO 03 

04 37 01 

01 F5 02 

02 00 63 
00 00 00 
00 00 00 
00 00 DO 
00 00 00 
00 00 00 
00 00 00 
AYEC DES 



01 F5 
03 00 
ED 01 
GE 02 
F5 02 
00 16 

02 22 
02 F5 
02 00 
5C 02 
35 01 
F5 02 

00 8F 
02 3F 

01 F5 

02 00 
DC 02 
45 01 
F5 02 
FO 35 

03 A2 

01 F5 

02 00 
BD 03 
29 01 
F5 02 
00 18 

04 29 
00 00 



03 00 CO 
E2 01 28 
35 01 F5 
F5 02 00 
00 12 02 
02 22 02 
02 F5 02 
02 00 20 
33 02 3F 
35 01 F5 
F5 02 FO 

00 87 02 
02 37 01 

01 F5 02 

02 00 87 
CB 02 35 
35 01 F5 
F5 02 FO 
FO IB 03 

03 89 01 

01 F5 02 

02 00 6C 
AE 03 35 
35 01 F5 
F5 02 00 

00 09 04 

04 35 01 

01 00 00 
00 00 00 



00 00 00 00 00 
00 00 00 00 00 
00 00 00 00 00 
00 00 00 00 00 
JUSQU'A 27FF 



00 29 

01 F5 
03 00 
OE 02 
D4 03 
F5 02 

00 1C 

02 22 

01 F5 

02 00 
81 02 
3F 01 
F5 02 

00 A9 

02 41 

01 F5 

02 FO 
01 03 
6C 01 
F5 02 

00 52 

03 CI 

01 F5 

03 00 
D8 03 
35 01 
F5 02 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 



74F4 


168 


MACRO 


39EC 


169 


8, lab _SetSysWindow 


2D3B 


170 


&lab ldx £$4BOE 


A941 


171 


jsl 3E1QQOO 


6434 


172 


MEND 


1058 


173 


MACRO 


1B88 


174 


&lab „SetPort 


F09C 


175 


&lab ldx £$1BQ4 


ECC6 


176 


JSI fElOOOIJ 


6F16 


177 


U C kT Fl 

MENU 


F7A5 


178 


MACKU 


CI C! 


1 79 


Ck I aD t for t 


2E79 


1 80 


g 1 .L. 1 ,4*. £4)1 CPiA 

aiab I ox x*i^u*i 


£549 


181 


Jsl fElOOOO 


E821 


182 


MEND 


31 E8 


183 


MACRO 


1306 


184 


8. lab _MoveTo 


C543 


185 


&lab ldx £$3A04 


950C 


186 


Jsl SEIOOOO 


FB25 


187 


MEND 


4DEA 


188 


MACRO 


ECE2 


189 


&lab _LineTo 


4?B0 


190 


8. tab ldx £$3CQ4 


60D8 


191 


jsl $ElOO00 


D1C2 


192 


MEND 


0B9C 


193 


MACRO 


9787 


194 


&lab _EraseRect 


4BD9 


195 &lab 1 dx £$5504 


0000 


196 


jsl $E10000 


0000 


197 


MEND 


0000 


198 


MACRO 


0000 


199 


8,1 ab _DrawCString 


0000 


200 


Mab ldx £*A604 


0000 


201 


jsl *E10000 




202 


MEND 



Si vous tapez le$ codes a partir du moniteur, procedez de la maniere suivante pour 
sauver la routine ACCENT : 



CREATE ACCENT, T$BB 



© 85 AVE ACCENT ,T$B8 ,A$20Q0,L2Q48 



Initiez-vous a la programmation en langage machine. 
Vous decouvrirez que c'est un jeu absolument 

captivant. 

... et commencez par vous offrir nos petits recueils de ROUTINES (voir bulletin de commande). 
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Table de conversion pour I'accessoire de bureau 
"Minuscules accentuees" 

— — — — ^— ^— — — par stephan HADINCCR. 



<5>/A 


A/A 


B/g 


C/E 


D/N 


E/O 


F/U 


G/a 


H/a 


17a 


J/a 


K/a 


L/a 


M/9 


N/e 


O/e 


P/e 


Q/e 


R/i 


S/i 


T/i 


U/i 


V/i 


W/6 


X/6 


Y/6 


Z/6 


[/6 


\fu 


]/u 


A /t 


/ii 







vt 


a/° 


b/tf 


c/£ 


d/§ 


eh 


f/f 


g/B 


h/® 


i/© 


j/™ 


kr 


1/ 


tn/^ 

J 1 L / 3" 


B./M 


o/0 


p/oo 


q/± 


r/< 


s/> 


t/¥ 


U/JJL 


v/d 


w/2 


x/n 


yin 


z/j 


f/ a 

I 


j/ e 


}/0 


~/ae 


del/0 




spaced | 


!/• 


"/, 


#/„ 


%}%> 


%/A 


&/£ 


7 A 


(/E 


)/E 


*/I 


+/I 


./I 


-/I 


./O 


//O 


0/* 


I/O 


2/0 


3/0 


4/0 


5/i 


6/" 


71 


8/" 


9r 


./■ 


;/" 


</, 


=r 


>/ 


?/D 








caracleres precedes de 


la touche ctrl* 








A/j 


B / 


c/y 


D/f 


E/~ 


F/A 


G/« 


H/» 


I/... 


j/ 


K/A 


L/A 


M/0 


N/(E 


0/(£ 


P/- 


Q/- 


R/" 


S/" 


TV' 


U/ 1 


V/4- 


W/0 


X/y 


Y/Y 


z// 


*3c/n 


\/< 


]/> 


A /fi 


/fl 
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I Votre bibliotheque 

I INFORMATIQUE par NESTOR 




* PROGRAMMER 
EN TURBO BASIC 
(par Patrice BIHAN) 

Turbo Basic (un produit BORLAND) 
est un systeme de developpernent 
complet puisqu il inclut a la fois un 
editeur, un systeme de recherches 
d'erreurs et un compilateur. De 
plus, il est compatible avec les ver- 
sions Basic ISM et Microsoft, 
Basica et GW. Basic. C'est acfuelle- 
ment la meilleure solution pour 
programmer efficacement en Basic 
sur IBM PC ou compatible. Autre 
□vantage, Turbo Basic possede la 
rigueur d'un langage structure et 
constitue une elape interessante 
vers lapprentissage de langages 
de plus haut niveau : Pascal et 
C entreautres. 

Dans son livre, Patrice BIHAN 
vous propose une initiation 
rap id e, mais apparemment effi- 
cace au Turbo Basic. 

Des exemples significatifs (une 
soixantaine) rendent ses expo- 
ses encore plus clairs. Un bon 
guide pratique. 

(240 pages — Prix 195 F TTC) 

EYROLLES, 61 bd St-Germain. 75005 PARIS' 



• TURBO C 
(par Gerard LEBLANC) 

On sait dejd tout le bien que je pense 
de TURBO C de Borland (Ah ! si 
seulement nous avions I'equivalent 
sur Apple IIGS ! ). Fronchement, 
s'essayer a programmer en 
Turbo C , sur un IBM PC ou compati- 
ble, est un plaisir ! On n'en finit pas 
de s'emerveiller sur la rapidite du 
produit de Borland. Resultat : les 
editeurs se dechainent pour eclairer 
nos lonternes. Bravo ! 
Gerard LEBLANC a choisi ('explica- 
tion par I'exemple. L'autodidacte de 
I'informatique que je suis approuve. 
II a meme envie de ne rien ajouter si 
ce n est que TURBO C est un guide 
utile, voire necessaire. Je ne kui 
adresserai qu'un reproche : Tab- 
sence d une disquette contenant les 
exemples. On peut certes les taper, 
ce qui en facilite la comprehension, 
mais dans le monde moderne, che- 
que minute compte. 
Bien sur, cela n'enleve rien au livre, 
bien au contraire, et je connais des 
tas d'utilisateurs qui vont decouvrir, 
en compagnie de Gerard LEBLANC, 
les mysteres du C ! 

(352 pages — Prix 180 F) — EYROLLES 



Gerard leblanc 

* 



TURBO 





• TURBO PASCAL 
SUR IBM PC 
ETAMSTRADPC 
(par PM BEAUFIIS et M LUTHER) 

Je ne connais pas TURBO PASCAL 
sur IBM PC et je le regrette, mais 
i'ai deja eu l occasion de dire tout 
le bien que je pense de la version 
MACINTOSH de ce produil 
Borland. 

Sur le champion d'Apple, nous dis- 
posons maintenant d'une version 
francaise de la documentation, ce 
qui rend lapprentissage plus 
facile. J'ignore s'il en va de meme 
sur PC 

Le guide de j'ai entre les mains 
devrait en tout cas simplifier la vie 
de nombreux programmers 
neophytes. C'est la encore une ini- 
tiation par I'exemple et j'aime 
cela. Jeux. utilitaires, applications 
scientifiques, fichiers : tout y 
passe. On vous propose meme une 
veritable interface de souris reali- 
see par logiciel ! 

II y a aussi, dans le domaine du 
grophisme, des choses fort 
interessantes. 

Je suis cerlain que les lecteurs de 
ce TURBO PASCAL deploreront, 
comme moi, l absence d'une dis- 
quette (decidement, je me repete, 
mais ce n'est pas encore du 
gatisme ! ). 

EYROLLES, 61 bd St-Germain. 75005 PARIS 
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GS Basic 



Emile SCHWARZ 



Programmation comparee 
en GS Basic... et en c 



GS BOSiC J' a ' deflni cinq procedures: Initialisation Affiche. Presentation Menu.Affiche 

CefausToFahrenheit et FahrenheiToCelcius, pour montrer comment uti I iser des 

procedures. Le IIGS BASIC traite plus rapidement les procedures que les sous- 
programmes avec acces GOSUB... RETURN. Je dois egalement preciser que le nom d'une proce- 
dure peut etre en majuscules ou bien en minuscules. Locate 12,31 est "equivalent" a VTAB 12 : 
HTAB 31 , en plus concis. L'aff ichage par une variable contenant 80 signes ' = ' est beaucoup plus 
rapide que (utilisation d une boucle. J'ai employe deux labels (DEBUT et FIN) avec des noms 
evocateurs egalement a des fins de demonstration. 



10 TEXT: HOME: GOTO DEBUT 

20 REM Conversion Celcius/Fahrenhei t 

30 REM (c) 26 Octobre 1987, E. SCHWARZ 8. TREMPLIN MICRO 

40 DEF PROC Initial lse 

50 CtF3="Conversion Cetcius en Fahrenheit* 

60 FtC$=" Conversion Fahrenheit en Celcius" 

70 NdC$= 11 N ombre en degres Celcius: " 

80 NdF$=*Nombre en degres Fahrenheit: " 

90 PressRet$= N Pressez < RETURN > SVP" 

100 Ligne$= "=============================================== 



110 END PROC Initial ise 

120 DEF PROC AffichePres 

130 PRINT LigneS; 

140 PRINT U I" SPC(78rr' ; 

150 PRINT T SPCC23)FtC$ SPCC23)" I " ; 

160 PRINT "I" SPCC78)"I" s 

170 PRINT " I" SPC(23)CtF* SPC(23)"I": 

180 PRINT "I" SPCC78)" I" : 

190 PRINT "I" SPCc 30 ) " # 26 Octobre 1987 *" SPC(29)"I"; 
200 PRINT ■ I" SPC(78>"r'; 

210 PRINT "I" SPC(22)"(c> Emile SCHWARZ & TREMPLIN MICRO" SPC( 22)" I 

M i 
I 

220 PRINT " I " SPCC78)*P; 

230 PRINT Ligne«; 

240 END PROC AffichePres 

250 DEF PROC AfficheMenu 

260 HOME: LOCATE 15,20 :PRINT "1 - "CtF* 

270 LOCATE 17.20 :PRINT "2 - "FtC* 

280 LOCATE 19.20:PRINT "3 - Quitter" (suite page 56) 
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cs Basic... et c 



290 LOCATE 21,20:PRINT "Votre choix: ■ } 

300 INPUT " , ; Choix 

310 ON Choix<l OR Choix>3 GOTO 290 

320 END PROC AfficheMenu 

330 DEF PROC CelToFdhr 

340 HOME: LOCATE 15.20 :PRINT CtF* 

350 LOCATE 17,20:PRINT NdC$; : INPUT ;Ce!cius 

360 IF Celcius<=-273.11 THEN LOCATE 19,18:PRINT > Zero absolu = - 

273.11 s Celcius <" :GOTO 380 
370 LOCATE 19,20:PRINT NdF*;<Celcius/<5,Q/9.0>>+32 
380 LOCATE 21,20:PRINT PressRet* ;: INPUT ;A$ 
390 END PROC CelToFahr 
4Q0 DEF PROC FahrToCel 
410 HOMEs LOCATE 15,2Q:PRINT FtC$ 
420 LOCATE 17.20: PR I NT NdF$i ! INPUT " " iFahrenhe l t 
430 IF Fahrenhei t<=-459.6 THEN LOCATE 19,18:PRINT "> Zero aDsolu = 

-459.6* Fahrenheit O :GOTO 450 
440 LOCATE 19.20 :PRINT NdC» ; C5 . 0/9 . >*< Fahrenhe i t-32) 

450 LOCATE 2l,20:PRINT PressRet$; : INPUT A$ 

460 END PROC FahrToCel 

470 DEBUT: PROC Initial ise :PR0C Af f i chePres:POKE 34,12 

480 HOME: PROC AfficheMenu 

481 DO 

482 IF Choix=l THEN PROC CelToFahr 
485 IF Choix=2 THEN PROC FahrToCel 
488 IF Choix»3 THEN FIN 

490 UNTIL Choix<>3 

500 GOTO 480: REM Boucle tant que 1' opt ion quitter n'a pas ete selec 
t lonnee, 

510 FIN: TEXT: HOME: LOCATE 12,31 

520 PRINT "That's all folks! " : LOCATE 22.UEND 



Commentaire du programme en c 



CELTOFAHR.C utilise diverses possibilites 
du longageC . 

£define Lors de lo compilation, le pre- 
processeur remploce le nom qui 
suit le £define par I'expression 
indiquee. Ainsi LIGNE sera rem 
place par la ligne de ' = \ 
J'ai defini quelque caracteres speciaux commen- 
ts dans le source : HOME, EOL, BELL et CR. 

puts Envote une chame de caracteres 

(put string) a I'ecran. Cette chame sera affi- 
chee beaucoup plus rapidement 
par puts que par printf. 
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while(d!=l) A ete utilise comme boucle 
d'attente. II faut que la variable 
d soit egale a J pour sortir de 
la boucle. Pour quitter le pro- 
gramme, il y a la meme boucle, 
mais avec une variable et une 
valeur differenfe. 

pnntf("ct%19 %scn", CHAINE1) 

Affiche la chame 1 (%$) en 
HTAB \9 (tf%19). 

Le reste du programme ne presente aucune 
difficulty particuliere. 
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GS Basic... et c 



Conversion Fahrenhelt/Celcius 
Emile SCHWARZ 
20 Octobre 1987 



====*/ 



finclude <stdio.h> 



*def me 
£flef ine 

£def i ne 
£def 1 ne 
£def ine 
fdef i ne 
£def ine 
£def ine 
£def ine 
£def ine 

£def i ne 
£oe£ ine 
£def i ne 
£aef ine 



LIGNE 

LIGNEi 

CHAINED 

CHAINEl 

CHAINE2 

CHAINE3 

CHAIKE4 

CHAINED 

CHAINEF 

PRESSNO 

HOME 
EOL 
BELL 
CP 



'Conversion Fahrenheit en Celcius" 
'Conversion Celcius en Fahrenheit" 
Par Emile SCHWARZ 
Octobre 1987 
'Cc) E. SCHWARZ et TREMPLIN MICRO" 



" > Pressez 1 pour continuer < 

M cf" /* Envoie un form feed a l'ecran 

"cn" /* Caractere de fin de ligne 

"57" /* Equivalent au CTRL-G du basic 

"cr" /* Re tour Charriot 



Cet t# liqne conpte nornalenent 
GO -fols le stone = 



/#=================== En premier ll faut tracer un cadre 



/* Efface 1 'Scran 
/* Trace un cadre 



Aff ichePresC ) 
e 

puts(HOME); 
putsCLIGNE, EOL): 
put sC L IGNE1 . EOL); 

printfC"%s%s%sgn" , CHAINED , CHAINEO . CHAINEF); /* et ce qu'M faut 
putsCLIGNEl, EOL) ; 

printf("%s%s%scn" , CHAINED, CHAINEl . CHAINEF); /* dedans 
putsCLIGNEl, EOL); 

printf("%s%s%s5n" , CHAINED. CHAINE2, CHAINEF); 
putsCLIGNEl , EOL); 

printf C"%a%a%S9n*. CHAINED, CHAINE3, CHAINEF); 
putsCLIGNEl, EOL); 

printf cns%s%scn" , CHAINED, CHAINE4, CHAINEF); 
putsCLIGNEl. EOL) ; 
putsCLIGNE, EOL, CR); 



*/ 
*/ 
#/ 

=*/ 



* ■• 
*/ 
*/ 



Menu 



Af f icheMenuC) 
e 

printf C"cnct%20 
printf C"ct%20 2 
printf C"ct%20 3 



- %scncn M , CHAINEO): 
%ssncn'\ CHAINED; 
Qui tter?nsn" ) ; 



(suite page 58) 
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CS Basic... et c 



printf C"ct%22 - Votre choix: " ) ; 

e 

/#==-========================= Celcius en Fahrenheit ====================*/ 

Cel Fanrc ) 
e 

float Fahrenheit , Celcius; 
1 nt a; 

Af f ichePresc ) ; /* Efface I'ecran & mscrit la presentation */ 

printf C"cncnct%19 %scncn" , CHAINEO); 
printf ("et%l9 Nombre en Celcius: "); 
scanf ("%f " , &Celcius) ; 

if (Celcius <= -273. in /* Dans ce cas, il y a une erreur! */ 

e 

puts(BELL); /* Ping the bell! */ 

printf ("cnct%19 > Zero absolu a -273, IT Celcius <cn"); 

e 

else Sinon, on transforme. */ 

e 

Fahrenheit = (Celcius / (5.0 / 9.0)) + 32; 
printf <"cnct%19 Valeur Fahrenheit: "); 
printf("%3.2fcncn" , Fahrenheit); 
putsCPRESSNQ) ; 

while(d != 1) /# 1 1 faut taper ' \' pour continuer */ 

e 

scanf ("%d" , &d); 
e 

e 

e 

FahrCelO 

float Fahrenhei t .Cel cms; 
lnt d; 

hi f ichePres< ) : /* Efface I'ecran & inscrlt la presentation */ 

printf ( N cncnct%19 %scncn" . CHAINED; 
printf ("ct%19 Nombre en Fahrenheit: "); 
scant ("%f", ^Fahrenheit); 

if (Fahrenheit <= -459.6) /* Dans ce cas, il y a une erreur! */ 
e 

putsCBELL); /* Ring the Bell! */ 

printf C"cnct%lQ > Zero absolu a -459.6* Fahrenheit <cn* >; 
e 

else /* Sinon, on transforme. */ 

e 

Celcius = (5.0 / 9.0) * (Fahrenheit - 32.0); 
printf ( "cn9t%19 Valeur Celcius: M ); 
printf ("%3,2fgn" , Celcius); 
putsCPRESSNQ); 

whileCd != 1) /* 1 1 faut taper 'i' pour continuer #/ 
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CS Basic... et c 



scanfC u %d", &d) ; 
e 



=== Programme principal ===== 



mainC ) 
e 

int 



choix i 



/* Declare la variable 



*/ 



do /* Execution tant que le choix est */ 

e /* different de 3 V 

AffichePresC ); 
Af f icheMenuC ) ; 

scant end" .fcchoix); /* En basic: INPUT "" ; choix */ 
if Ccho ix == 1) 

CelFahrO; 
if Ccholx == 2) 

FahrCeU); 
if Cchoix < I 00 choix > 3 ) 

choix = 0; 

e 

while Cchoix 1 = 3); /* Tant que 'choix' est different de 3 -> do*/ 

puts(HOME); /* Envoie un Home */ 

puts(BELL); /* 1 bip et e'est term in*... */ 

putsC'Bye bye. . ); 



• Amusette 

Simplement pour vous amuser, 
comparez tout de meme l affichage 
de ce titre, en LM, avec celui que 
vous obtenez en C ... Nestor 



*801L 
l=m l=x 



]=LCbank (0/1) 



00/0801: A9 03 

00/0803: 20 95 FC 

00/0806: 20 58 FC 

00/0809: AO 00 



LDA £03 
JSR FC95 
JSR FC58 
LDY fOO 



00/080B: 


B9 


29 


08 


LDA 


0829 


.Y 


00/080E: 


C9 


80 




CMP 


£80 




00/0810: 


90 


06 




BCC 


0818 


e+06e 


00/0812: 


20 


ED 


FD 


JSR 


FDED 




00/0815: 


C8 






I NY 






00/0816: 


80 


F3 




BRA 


080B 


e-0De 


00/0818: 


C9 


00 




CMP 


£00 




00/081A: 


FO 


oc 




BEQ 


0828 


e+OCe 


00/081C: 


AA 






TAX 






00/081D: 


B9 


28 


08 


LDA 


0828. Y 


00/0820: 


20 


ED 


FD 


JSR 


FDED 




00/0823: 


CA 






DEX 






00/0824: 


DO 


FA 




BNE 


0820 


e-06e 


00/0826: 


80 


ED 




BRA 


0815 


e-l3e 


00/0828: 


60 






RTS 







#829. 87D 

00/0829 :AA 50 AO 4C AO AA AA-*P L ** 

00/0830:AO 04 C3 CF CE D6 C5 D2 D3 C9 CF CE AO C4 C5 AO- .CONVERSION DE 
00/0840 :C4 C5 C7 D2 C5 D3 AO C6 CI C8 D2 C5 CE C8 C5 C9-DEGRES FAHRENHEI 
00/0850 :D4 AO C5 CE AO C3 C5 CC C3 C9 D5 D3 AO CF D5 A0-T EN CELCIUS OU 
00/0860 :C3 C5 CC C3 C9 D5 D3 AO C5 CE AO C6 CI C8 D2 C5-CELCIUS EN FAHRE 
00/0870:CE C8 C5 C9 D4 AO 05 AA AA AO 4D AA 50 00-NHEIT .** M*P. 
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SPRINT 



le traitement de texte de Borland 

CM APE All ! Une demi-heure, Cest le temps 
qu'il m 'a fallu pour sortir mes trois 
premieres lignes de texte sur une imprimante Epson 
LQ 25QQ, a partird'un compatible Donatex. J'avoue 
d ma grande honte avoir "gaspille" une bonne ving- 
taine de minutes pour paramefrer ma sortie impri- 
mante, mais je suis completement nuf : cetaitd'une 
simplidte tellement deconcertante que je pre fere 
ne point m'etendre davantage sur ce probieme 
"personnel". Je vous dois un autre aveu : en gene- 
ral, cest seulement apres avoir tatonne un bon bout 
de temps que je me decide a prendre connaissonce 
de la documentation dont f a I'image de la mojorite 
des utiiisateurs, je deplore la pauvrefe, mais que je 
ne lis pratiquement jamais. Un exemple a ne pas 
suivre, Evitez de laisser trainer cette page dans une 
piece frequentee par vos en fonts ! 



* rat tout compris! 

Mais revenons 6 SPRINT. Je 
n'etais pas specialement bien 
dispose a son egard. On en avait 
ecrit tant de bien dons les pages 
publicitaires inserees un peu 
partout que j'etais plutot decide 
6 en deceler les eventuels 
defauts que les probables quali- 
tes : quand on s'appelle Borland, 
on ne peut pas se permettre de 
miser sur un mauvais produit. 

Au moment ou je redige ces 
lignes, je suis loin d'avoir teste 
toutes les ressources avouees de 
SPRINT. Je me suis neanmoins 
asfreint a sortir une bonne dou- 
zaine de textes d'une vingtaine 
de lignes et d les memoriser pour 
la posterity D'abord avec pru- 
dence : comme je dispose evi- 
demment d'un disque dur (c est 
tellement bon marche, sur Dona- 
tec, qu'il n'y a aucune raison de 
s'en priver), je ne tenais pas d en 
compromettre I'irremplacable 
contenu par quelque manoeuvre 
maladroite. Avec moi, notam- 
ment sur un PC, il taut s'ottendre 



a tout. Je me sens tout de meme 
plus d I'aise devant mon GS ou 
devant un Macintosh. Normal, 
non ? Mais je n'ai rien sabote. Et 
j'ai tout compris... ou presque. 

Evidemment, au debut, j'usais 
de la multitude de fenetres que 
Borland ouvre en cascade, mais 
j'ai vite realise (il m 'arrive aussi 
d'ouvrir et de parcourir la doc... 
quand ca morrange !) que la 
plupart des manceuvres pou- 
vaient etre simplifiees. Tenez ! 
un simple OTRL-F10 lance 
I'impression du texte en cours. 
J'ai abondamment melange les 
styles de caraderes : normal, 
souligne, gros, italique... je 
vous promels que si mon impri- 
mante avait pu parler el le 
m'aurait assurement traite de 
"machiavelique emm...", et 
elle aurait eu raison. 



• convivialite et efficaeite 

Premiere constatation : si Ton 
peut parler de convivialite quel- 
que part, c'est bien chez Borland. 



Tenez ! un simple detail : la sau- 
vegarde du texte est automati- 
que. C'est judicieux quand on 
destine le produit a des etourdis 
comme moi, mais c'est utile pour 
tout le monde : qui n'a jamais 
oublie de sauvegarder une prose 
qui aurait indiscutoblement fait 
date dans I'histoire de la litera- 
ture francaise ? Vous ? Vous 
aurez une medaille : I'effigie de 
Jean-Louis Gassee revant a un 
Macintosh-IBM ! 

Deuxieme consttation... je vous 
y prends ! Vous n'aviez pas 
remarque la foute de frappe qui 
afflige le deuxieme mot du pre- 
sent alinea ? Avec Sprint, ca ne 
passe pas ! 

Un signal sonore vous rappelle a 
I'ordre. Je I'oi entendu... non 
sans surprise car n'ayant rien fait 
pour cela, je ne m'attendais pas 
a beneficier de la correction 
automatique. Inutile de preciser 
que je me suis ensuile amuse a 
taper des tos de petites betises. 
La correction en direct des mots 
n'est cerfes pas parfaite (ne vous 
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attendez pas d ce que I on 
vous signale des erreurs 
complexes de synfaxe), 
mois elle se revele terrible- 
ment efficace. 

Je n'ai pas eu le temps de 
travailler avec une autre 
interface que celle — tout d 
fait standard — qui m a per- 
mis ces brillants debuts. 
Sachez que vous pouvez 
retrouver sur Sprint toutes 
les commandes auxquelles 
vous etes habitues sur un 
autre logiciel. Quelle sim- 
plification dans lappren- 
tissage ! 

Vous pouvez aussi creer 
votre interface personnelle 
grace au Kit du program- 
meur Sprint (ne I'ayant pas 
eu entre les mains, |e ne 
vous en parlerai pas, mais il 
doit en tout cos etre achete 
seporement). Je suppose 
qu'il est indispensable de 
passer par lui pour que 
Sprint devienne reellement 
compatible avec les photo 
composeuses, mais I infor- 
mation a pu echopper a 
mon attention. 

' Conclusion 

Je 5uis reellement emballe 
par Sprint, traitement de 
texte original associanl 
excellemment convivialite, 
simplicity et efficacite. Un 
futur best-seller de linforma- 
♦ ique. Chapeou Borland ! 

Cuy Hochette 
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Quelques exemples 
en cs Basic 



lo 

20 



home 



PRINT USING existe... 

40 P ZIN? Us 1 ° Mi V0US ^ renCOn t rereZ ! 

Deux utilisations de TIME 



1° HOME 

®° ON **n **** 



COPIE DE FICHIER TEXTE 



10 HOME: INVERSE 

20 PRINT -COPIE D'UN FICHIER TEXTE' 1 

30 NORMAL: LOCATE 10 J 

40 INPUT "NOM DU FICHIER " ;A$ 

50 OPEN ht, FILTYP= TXT FOR INPUT AS£10 

60 INPUT "TITRE DE LA COPIE " ;A$ 

70 OPEN A$, F I LTYP= TXT FOR OUTPUT AS£11 

80 ON EOFflO PRINT "DONE" : CLOSE: END 

90 1NPUT£10;A$:PRINT£11;A*:GOTO 90 
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• PC DOS -LA PRATIQUE 
(par Chris DEVONEY) 

QUE, la nauvelle collection d'lnter- 
Editions est reellement une reussite. A 
quand, dans cette serie, le pendant, 
pour Apple IIGS. de ce PC DOS ? 

II faul dire que to rnethode adoptee par 
1'auteur (traduit par Bertrand Blume- 
reau) presente de nombreux avanta- 
ges, Des exposes clairs, documentes 
quand le sujet I'exige, mois jamais 
d une maniere oiseuse. 

Dons la partie consacree au manuel de 
reference des commandes du DOS, 
chaque mot-cfe esl explique suivont un 
schema particulierement efficace : 
fonctton, syntaxe, parametres, regies, 
exemples evenluels, remorques el 
messages. Pour certaines fonctions, 
cela se traduit par une page de 1exte r 
mais pour d'autres par des developpe- 
merits beaucoup plus longs, 

PC DOS - IA PRATIQUE repondra a 
lattente de tous les utilisateurs, mais 
surtout 6 celle des gens qui, comme 
moi, tapotent plus souvent sur le cla- 
vier dun Apple que sur celui de quel- 
que "clone" plus ou moins rigolo, 

On disposera, avec cet ouvrage, non 
seutement d'un aide-memoire (voir 
I'index). mais d'un guide sur, congu par 
un auteur qualifie. Nestor. 

InterEditions, 87 avenue du Maine 75014 PARIS 
(584 pages sous reliure souple). 



• INITIATION 
A L'ALGORITHMIQUE 
ETAUX STRUCTURES 
DE DONNEES 

(per J. COURTINetl. KOWARSKI! 

Recursivite ef structures 
de donnees avancees. 

Au debut de 1987, est paru le premier 
volume de cetle Initioiion a I'algorHh- 
mique et aux structures de donnees 

consacre a lo programmation structu- 
red et aux structures de donnees 
elementaires, 

Dans ce deuxieme volume qui est la 
suite logique du premier, Jacques 
Courtin et Irene Kowarski abordent la 
recursivite et les structures de donnees 
avancees. Cet ouvrage utilise les 
memes methodes el les memes nota- 
tions que le premier. II est consacre 
principalement a la programmation 
recursive et a la construction d'algorith- 
mes classiques et fondamentaux sur 
des structures de donnees plus avan- 
cees que sont les listes chamees, les 
piles, les files d'attente, les tables et les 
arbres. II constitue ainsi une bonne pre- 
paration a I'utilisation des longages de 
('intelligence artificielle (Lisp, Prolog} 
et aux methodes modernes d'analyse 
des systemes dinformotion. Cet 
ouvroge s'adresse aux etudiants des 
specialites informatiques (I.U T., 
B.T.S., D.P.C.T., D.E.S.T., LICENCE et 
AAAITRISE. M.S.T., M.I.A G.E-, ECOLES 
D'INGENIEURS, INSTITUT DE PRO- 
GRAMMATION. D.E.S.S ) et aux lec- 

teurs souhaitant acquerir les bases sali- 
des necessaires a une bonne activite de 
progrommation quel que soit le Ian- 
gage support envisage. 

Les algorithmes sont ecrits dans un 
langage proche du Pascal et leur tra- 
duction dans un langage classique 
{Pascal, Fortran, Cobol. Basic...] est 
aisee. De tres nombreux exemples et 
exercices, doni certains sont corriges, 
permetlent de se familiariser avec la 
demarche proposee et de verifier que 
la rnethode a bien ete assimilee. 

(Coll. "Dunod Informatique". Dunod 1987. 
15,5X24, 360 pages, broche) 

DUNQD 77 rue Remy-Dumancei 75661 PARIS Cede* 14 



• TECHNIQUES 
DE PROGRAMMATION 
EN TURBO PASCAL 
SURAMSTRAD 
(par Bertrand NELSON) 

Cet ouvrage se propose de fournir aux 
utilisateurs deja familiarises au lan- 
gage Assembleur, toutes les informa- 
tions utiles pour exploiter le logiciel 
interne (Firmware) de I'Amstrad aussi 
cornpletement que possible. 

Le livre presente, dans un premier 
temps, les outils de base qui permet- 
tent une programmation avoncee en 
Turbo Pascal le tout etant iliustre de 
nombreux exemples. II s'attarde, dans 
un deuxieme temps, sur les problemes 
de comptabilite entre les deux syste- 
mes CPM toumant sur Amstrad avec 
toutes les informations pour I'adapto 
tion des programmes. L'auteur fournit 
tout au long de son ouvrage, une multi- 
tude de petites procedures utilitaires. 
La deuxieme partie de I'ouvrage 
comporte de nombreux programmes 
plus consequents, essentiellement 
en Assembleur mais aussi en Turbo 
Pascal standard. 

Cet ouvroge se destine surtout aux 
programmeurs desireux de pouvoir 
travailler en Poscol avec les memes 
possibilites qu'avec le Basic et 
I'Assembleur. 

L'auteur : Bertrand NELSON esl 
physicien-chimiste. II est dejo l'auteur 
d un logiciel de comptabilite generale 
en Turbo Pascal sur Amstrad et adapta- 
ble sur MS DOS. 

Un livre broche de27Q pages 
ou format 190X230- 

SYBEX. 6-8 impasse- du Cure. 75018 PARIS 
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LA QUESTION 



COURRIER 



Je m'adresse a vous, car je ne suis pas parvenu a implanter 
dans le STARTUP dun programme d'application, a partir de 
I'UTlUTAtRE SYSTEME de mon Ik, un programme de configura- 
tion du port serie n°1 . 

Mon logiciel fonctionne tres bien, mais f'impression des 
tableaux ndcessite de supprimer ie LF apres 80 caracteres de 
la configuration de base ; on doit a chaque fois recharger le 
NIP modi fie a partir de I'Utilitaire, 

J ot tente d'implanter I'utilitaire de Claude AUBRY dans le but 
d'utitiser les copies d'ecran par Ampersand Hard. II convient 
de noter que cef utilitaire plaisant ne fonctionne, sur un lie, 
qu'avec une carte parallele Apple a ('exclusion de toute autre 
interface (Grappler ne fonctionne pas mieux qu Apple Work 
sur mon Ik et ma FX80). 

Si vous pouviez m'indiquer comment implanter une routine de 
configuration des ports series sur un logiciel, et ce sans que 
son fonctionnement soil perturbe sur un lie avec carte paral- 
lele, vous auriez droit a ma plus profonde gratitude f 

J.-M. S. (76170 ULIEBONNE) 



LA REPONSE : 

Tremplin Micro a dejd repondu 6 votre question concemant la configuration du 
port serie du Ik (Luc Moreau dans T.M. n°9 et Yvan Kcenig dans T.M. n°J3 
page 73). Je prof He de I'occasion pour rappeler quelques evidences. 

Le lie stocke dans 4 trous decran de so memoire auxiliaire le configuration 
du port serie n°l. Ces informations sont utilisees chaque fois que Ton fait 
un PR£1. Pour les modifier, il est possible d'empioyer les utilitaires systeme 
mais ce n'est pas tres pratique. Ces informations sont les suivantes : 

$478 aux Contient par defaut £% 1001 1110 ce qui signifie 8 bits 

de data, 2 bits de stop, 9600 bouds. 
bitO a 3 Vitesse de transmission en bauds (cf , table). 
bit4 Toujours I. 
bit5 a 7 Format info (cf . table). 

$479 aux Contient par defaut £%00Q01Q1 1 

pas de bit de parite 
bifQ 6 4 Ne pas toucher. 
bit5a7 Codage parite (cf. table). 

S47A aux 



bitO 
bitl a 5 
bit6 
bit7 

$47B aux 



Contient par defaut £%0U 
pos d'echo ecran, LF apres CR, mode imprimante. 
La signification precise des bits est la suivante : 



1 = communication 
Toujours 
1 = LF apres CR 
1 = echo ecran 



= imprimante 

= pas de LF 
= pas d echo 



VITE5SES 


mn B 


IAUD5 


1 


50 


9 


1800 


2 


75 


10 


2400 


3 


110 


11 


3600 


4 


135 


12 


4800 


5 


150 


13 


7200 


6 


300 


14 


9600 


7 


600 


15 


19200 


B 


1200 













data 


stop 


a 


3 


1 


1 


7 


1 


2 


6 


1 


3 


5 


1 


4 


8 


2 


1 


7 


2 




6 


2 


7 


5 


2 



PARITtS 


a 


sans 


i 


impaire 


2 


sans 


3 


poire 


4 


sons 


5 


MARK 


6 


sons 


7 


SPACE 



Contient por defaut £%01 010000 
e'est-a-dire tampon ligne de 80 caracteres. 



Pour regler votre probleme, il me 
semble qu'il suffirait de modifier 
le tampon ligne, en le mettant, 
soit a 0, soil a une voleur supe- 
rieure a 80. C'est ce que je foisais 
dans Tremplin Micro n c 13 ou 
j'installais 96, Je vous rappelle la 
routine: (suite page 64} 
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QUESTION : 

J'ai lu dans le numero 15 du 04/07/87 de 
TR EM PL IN MICRO (bas de to coionne I, 
page 61) — Un correcteur d'orthographe 
de 100 000 mots — Comment esi-ce rea- 
lise sur PC ? 

Comment est-ce realisable sur APPLE II, 
sinon pourquoi I'eau a la bouche ? 

J'ai cree sur mon APPLE II -h equipe d'une 
carte langage et d une ROM minuscule, un 
dictionnaire de mots croises de 82068 
mots accentues, non conjugues, soit 
712051 caractdres DATA frappes*. 

J'ai besoin des 2 faces de 5 disquettes 
(programmes compiles, organises el opti- 
mises pour un minimum d'encombre- 
ment), et sans les programmes, les DATA 
occupent 8 disquettes ! 

Est-ce qu'un programme en langage 
machine utiliserott beaucoup moins de 
place et toumerait plus vite d'un pro- 
gramme BASIC COMPILE ? Pourrait-il signa- 
ler instantanement one faute d'orthographe 
portant sur des mots de longueur quelcon- 
que (ex. : invraisemblance ou anticonstitu- 
tionneflement) ou des verbes conjugues 
(ex. : seoir) ? c. b. {02110 bohain) 

' A qui pouriait-j* m'admtmr poui U public) T Y o-l-it dm* odtttvt d* 
foyifimh AWf U qui tmtalmni InUrm**** par un "dfcf>" *n truncal* f 



300 


AD 


18 


C0 


LDA 


C018 


303 


48 






PHA 




304 


8D 


01 


C0 


STA 


ego? 


307 


A9 


60 




IDA 


£$60 


309 


8D 


55 


CO 


STA 


C055 


30C 


8D 


7B 


04 


STA 


47B 


30F 


8D 


54 


CO 


STA 


C054 


312 


68 






PLA 




313 


30 


03 




BMI 


318 


315 


80 


00 


CO 


STA 


C00O 


318 , 


60 






RTS 





BSAVE SETLARGEUR,A$300,L$19 



Pour votre second problem©, il me semble que vous 
melangei tout. 

Les probl ernes que I'on rencontre a limpression 
peuvent avoir plusieurs engines : 

• Un ou plusieurs bug(s) dans le programme (j'ai 
utilise Hardcopy, ce n est pas le cas). 

• Incompatibility programme / interface. C'est le 
cas APPLEWORKS / ancienne interface parol lele 
EPSON (j'ai deja signale qu'EPSON assurait gra- 
tuitement lechange contre la version £8133). 

• Incompatibility interface / imprimante (il y a des 
inconscients qui branchent nimporte quoi sur 
n'importe quoi). 

• Incompatibility programme / imprimante. 

Dans votre cas, c'est ce qui se passe. Carte // APPLE 
(ou vieille carte EPSON et sans doute GRAPPLER //) + 
APPLE-DMP, co fonctionne. Carte SSC, port serie Ik 
(sans doute port serie GS mais je n'ai pas essaye) + 
IMW 1 ou 2, co marche. C'est normal, Claude AUBRY 
a ecrit pour CES configurations. Si vous utilisez une 
imprimante EPSON ou similaire, cq ne foncttonnera 
pas et cela pour plusieurs raisons : 

• Lorsque APPLE envoie un octet correspondent d 
une coionne de 8 points, le bitO correspond ou 
point HAUT olors que chez EPSON, il correspond 
au point BAS, 

• Les chaTnes de commande gerant les diverses 
fonctions des imprimantes sont specifiques a cha- 
que constructeur. 

• Une imprimante APPLE peut imprimer, dans un 
coractere personnalise, deux points consecutifs 
sur une meme horizontale. EPSON ne le peut pas. 

Si vous tenez 6 utiliser la recopie d'ecran du bureau 
de MINIE sur EPSON, il faut vous plonger dans le 
source et tout adapter a la logique EPSON, mais vous 
aurez, a coup sur, un resultat mediocre pour les 
inverses et les icones. I! vous serait possible, sans 
trop de difficulty, de remplacer I'utilisotion de carac- 
teres perso par une autre formule. Par exemple, 
vous pourriez recoder les controles en majuscules 
"grosses" et les icones en majuscules indices, Pour ce 
faire, il vous faut disposer de MERLIN PRO ou vous 
adresser 6 Claude AUBRY qui me semble le mieux 
place pour adapter MINIE & CO. V. koenig. 
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REPONSE : 

Desole ! mais il exlste deja, sur APPLE He un correc- 
teur orthographique ANGLAIS de 114000 mots. II 
s'agit du WEBSTER'S NEW WORLD SPELLER CHECKER 
Editeur : SIMON & SCHUSTER (cf. NIBBLE mars 87). 

Un programme en assembleur pur, bien ecrit, tourne- 
rait probablement 2 fois plus vite que I'APPLESOFT 
compile et serait environ moitie moins gourmand en 
espace memoire (ce sont des ordres de grandeur). 

Y. K. 

NDIR ; II est tout a fait inutile, dans le cas de 
mots tels que COMPARAITRE, COMPAS- 
SION, COMPARUTION... de stacker les 5 premiers 
caracteres ! Des tas d'astuces permettent des 
gains de place considerables. 



QUESTION : 

Dans le programme de fa page 7 de Trem- 
plin Micro n°15 vous recommandez A 
fkhiers ainsi que dans le dossier system de 
contenir (STAR). Mais sur MOUSE DESK il n'y 
a pas celui de STAR ni de STARTUP et, . . 



GUY-HACHETTE 



je ne sais ou les trouver. Comma je vous 
commando la disquette n°l5, je voudrais 
bien pouvoir faire tourner ce programme 
sur le GS. Je vous remercie a t'avance, 

J. B. (94220 CHARENTON) 



REPONSE : 

Nicole semble avoir ete trop exigeonte. Je vous 
propose ci-dessous le contenu du directo principal 
et du DIR system de la disquette avec loquelle j'ai 
essoye PR. BASIC. 

STARTUP est un programme tres elabore dont vous 
trouverez le listing ci-dessaus (je rVai pas cru 
necessaire d'utiliser SIGNATURE). 
10 PRINT CHR$ (4)"-PR. BASIC" 
Y (24/07/87 12:45) V000 



ffpt 


Blocs 


lorn 


CfM 


MoHlflt 


long. 




42 


PRODOS 


24.07.87 12:45 


06/09/86 12:00 


20992 


System 


21 


BASOSTW 


24/07/87 12:45 


wm oo oc 


10240 


"Direc 


1 


SY5T£M 


24/07/87 12:46 


24/07.87 12:5* 


512 


Asf&AS 


5 


PR.BASIC 


24/07/87 12$ 


13/(6/87 00:M 


1618 


Binary 


1 


P6.0BJ 


2407B7 12:54 


13 04. 87 10:22 


246 




1 


STARTUP 


mill 12:1(1 


24/07/87 13:10 


24 


1 183 Blocs disponibles sur 1600 






SYSTEM (24/07/87 12:46) V004 






TfPt 


Blocs 


Horn 




crti 


Hod 1 fie 


Long. 


System 


32 


P8 


24,07/97 12:4 


06 09 86 1 2:00 


15485 


System 


66 


m 


24.07.^7 12:4 


06 09 86 12:00 


33121 


'Direct 


1 


SYSTEM.SETUP 


UWW 1244 


24.07 87 12:48 


512 


'Dired 


1 


TOOLS 


Ifflltl 12:44 


24 07.87 12:50 


512 


■ Diretl 


1 


DE5K.ACG 


24/07/87 12:44 


24'07-87 12:50 


512 


'Direct | 


1 


FONTS 


mifB 12:46 


24;'07/B7 12:50 


512 



QUESTION : 

J'ai tape le programme "La boite aux idees" 
paru dans Tremplin Micro n°8 et j'ai decide de 
reprendre la routine "saisie du texte" dans un 
de mes programmes. 

Je suis un programmeur novice (et je le 
regrette), pas pour longtemps j'espere, grace d 
votre revue, et j'ai besoin de vous pour m'ec hi- 
rer sur un certain point. 

En utilisant ia routine "saisie du texte" (1.196 a 
370) — comme if est prevu dans le programme 



Boite — je ne peux ecrire que sur une ligne (78 
caracteres) ; or, je voudrais pouvoir ecrire un 
texte sur une page entiere (independamment 
du programme Boite. bien sur, mais dans un des 
miens, comme je I'ai deja signals). 

Pouvez-vous me donner fes modifications d 
apporter pour que je puisse mettre fin a mes 
pr obi ernes ? e. d. c (U ant) — (3sooo grenoble) 

REPONSE : 

To demonde est imprecise, cherches-tu : 

• Une routine dTNPUT amelioree, forcement 
limitee d des choines de 239 caracteres ? 

• Une routine de saisie d ecran ? 

• Un traitement de texte ? 

Pour la routine d'INPUT vois, entre autres, NIBBLE 
mai 87 (OUTL1NER). 

Pour la saisie d'ecran, Tremplin Micro a deja 
traite le probleme plusieurs fois. 

Un traitement de texte n'est pas du ressort du 
courrier des lecteurs, APPLEWRITER ProDOS fonc- 
tionne tres bien. Je te signale que VIF commercia 
iise en Domaine Public : FreeWriter*. une version 
simplifiee d'APPLEWRITER que tu pourras decorti- 
quer a loisir. Je te promets que tu y apprendras 
beoucoup de chases. Pour ce faire, je te conseiile 
de te procurer l ossembleur MERLIN dont le desas- 
sembleur SOURCEROR est TRES commode. Cest 
avec lui que j'ai disassemble, entre outres, DOS 
3.3, ProDOS, BASIC. SYSTEM, APPLEWRITER dos 
puis ProDOS etc. Y. K. 

• FK££ wmiflt dltqu+n* S". r*f. I SO 19 : 6DF — 3". r*f. ASOJ9 : 9QF 
chmz VtF'DPS. mm Boftano. 7S1 16 PARIS. 



QUESTION : 

A propos de la couleur en DHGR (Apple lie) 
pourquoi ECRIT DHGR (Tremplin Micro n°12) 
affiche-t-il en couleur ' arc-en-ciel" et 
qu'apres plusieurs RUN success! fs (3 ou 4), 
finit-on par obtenir le BLANC souhaite ? 
Ai-je ma I lu votre revue ou bien cette ques- 
tion n'a-t-elfe pas Ste abordee ? 
D avance merci. c.o.(8ttoo castres) 



REPONSE : 

Comme je I'ai deja £crit dans Tremplin Micro 
n°13 (page 72) , sur le Ik, il faut activer le 
"switch" $C07E avant $C05E et DEMO. DHGR 
ne le faisait pas. 

Ajoutez la ligne 39 POKE 49278,0 et ca ira 
peut-etre mieux... V.K. 



HNINIMIMIfil 
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QUESTION : 

Je suis depuis peu (JO jours), I'heureuse 
proprietasre d'un APPLE IIGS et, je I'avoue, 
j'en suis fiere. Je commence a me regafer 
avec vos routines et "Iui", il s'&clate, 

Si je vous ecris, c'est pour vous poser quel- 
ques questions (je vais abuser !) : 

Existe-t-il plusieurs versions de I'unite cen- 
trale du GS ? (la mienne n'affiche pas 
MOUSE DESK en couieur, mois en noir sur 
fond blanc et la bordure dans la coufeur que 
j'ai choisie par le tableau de bord). 

Pourquoi DEMO/PAINT ne fonctionne-t-tl 
pas ? (il se boot correctement mois affiche 
apres un ecran bianc sons aucun menu 
aeroulant ; il y a uniquement I'icdne He- 
che). U en va de mime pour DELUXE/PAINT. 

Par contre, GS/PAfNT marche correctement. 
J 'allots oublier... j'oi une amie qui a egale- 
ment achete un GS, et MOUSE DESK est par- 
tie! foment en couieur (lettre noire sur fond 
rose). Je vous fais de grosses bises.*. 
Je finis par vous demonder un cor)seil. Je 
me familiarise depuis peu a Pro DOS. Je 
convertis certains programmes du bon 
vieux DOS 3.3 sur des disqueftes 3" 1/2 en 
ProDOS, j'y ajoute BASIC SYSTEM et le pro- 
gramme de mon choix pour le demorroge, 
un STARTUP et tout va tres bien, mais cer- 
tains fichiers T et Binaires refusent ProDOS. 

Je n'ose pas vous demonder pourquoi, vous 
risqueriez de penser que je ne lis plus votre 
revue, et pourtant, je suis fidele et {'attends 
tou jours les numeros de Tremplin Micro 
avec impatience et croyez-moi, c'est avec la 
meme impatience que ('attends une 

reponse . A t ex and r a C. (69007 L YON} 



REPONSE : 

Merci pour les grosses bises. 

Je ne possede ni DEMO.PAINT ni DELUXE. PAINT. 
Etes-vous sure que votre carte memoire est assez 
gornie ? Je sais que la presentation GS exige, par 
exemple, 2 lecteurs 3"5 et une carte I mega. 
GS. PAINT se plante lorsquon essaie de lutiliser 
sur une machine dont la carte 1 mega est configu- 
ree avec un disque virtuel de plus de 5{30K. £a 
devrait figurer dans les manuels, mais ca n'y est 
pas. II me semble que DEMO.PAINT n'est pas un 
programme commercialise, mais simplement un 
outil pour les concessionnatres, et si c'est bien le 
cos, rien d elonnant 6 ce qu'il exige 1 mega. Votre 
concessionnaire devrait pouvoir etre plus precis. 



He vous leurrez pas, APPLE ne nous a fourni 
AUCUNE information particuliere. Nous devons 
tout decouvrir par experience. 

Pour vos problemes de transfert DOS 3.3 vers 
ProDOS, je vois deux possibilites : 

• Vous essoyez de transferer des fichiers TXT 
6 acces direct avec les utilitaires APPLE qui 
ne savent pas le faire. Le plus efficace seratt 
de le faire avec COPY II PLUS, 

• Pour les fichiers BIN, \\ est probable qu'il 
s'agit : 

soit de programmes appelant directe- 

ment DOS 3.3, ce que ProDOS aura du 
mal a comprendre ; 
_ soit de programmes se placant juste en- 
dessous de DOS 3.3, ce qui est inaccepta- 
ble sous ProDOS qui passe son temps a 
deplacer HIMEM au gre de l ouverture et 
de la fermeture des fichiers. 
If serait plus simple d'acheter pour $29,95 + 
$2,50 de port, le programme UNIDOS de NIBBLE 
qui permet de travail ler en DOS 3.3 sur des dts- 
ques 3"5. Je dois preciser qu'UNIDOS etant un 
DOS 3.3 serieusement remanie, bon nombre de 
patches plus ou moins classiques ne sauraient 
Iui etre appliques. 

Puisque vous avez un GS, je vous conseille une 
petite gymnastique. Formatez une disquette et 
copiez-y le fichier P8 qui se trouve dans un sous- 
catalogue de MOUSE. DESK. Sur la disquette ainsi 
garnie. faites RENAME P8, PRODOS et vous aurez 
ainsi un ProDOS 8 bits reconnaissant I'horloge du 
GS et beaucoup d autres gateries (des bugs entre 
autres). N'oubliez pas de completer avec 
BASIC. SYSTEM, STARTUP et compagnie. V. K. 

NDLR : Nous avons lu dans les colonnes de notre 
excellent confrere americain Call APPLE 
qu'APPLE US reconnect avoir livre les premieres 
series de GS avec un composant "defectueux". II 
s'ogit du VGC qui gere la video, L'anomalie se tra- 
duit, entre autres choses, par un moirage et par un 
ecran rose alors qu'il devroit etre gris. Apparem- 
ment, ils auraient reussi a regler le probleme puis- 
que votre ecran est gris. 

Cetie reponse d'Yvon KCENIG remonte a pfusieurs mois. Au 
moment ou nous bouchns ce numero, H semble qu Apple France se 
soit ertfh decide 6 modifier gratuitement tons les GS defectueux... 



Nous ne repondons qu'aux lettres ac- 
compagndes d'une enveloppe affran- 
chie pour le retour. 

Si vous nous adressez un programme, 
n'oubliez pas d'y joindre la disquette. 
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• Postscript par t exempte 

OvtHs pour i'&dlihn elecfroniqve 

- Adobe Systems, Inc 

On soit que PostScript est 
dejd implante sur la LaserWri- 
ter d'Apple ainsi que sur les 
ordinateurs de la nouvelle 
gamme IBM. 

PostScript est un langage de 
description de page permet 
tant de decrire exactement, a 
I'intention de l imprimante qui 
lexecutera, l aspect des tex- 
tes, images et objets graphi- 
ques que Ton desire editer. 
On peut dire que PostScript 
est rapidement devenu La 
reference en matiere de PAO 
(Publication Assistee par 
Ordinateur). So souplesse et 
sa puissance sont maintenant 
reconnues... y compris par 
IBM, ce qui prouve d'ailleurs 
qu'Apple avait fait le bon 
choix. Cet ouvrage a ete ecrit 
par une equipe d'Adobe 
Systems, Inc, la Societe qui a 
invente le langage... ce qui 
explique sans doute sa clarte 
{te tradueteur, Alain Kade, n'y 
est pas non plus pour rien). 



Dans une premiere partie, les 
auteurs nous proposent une 
visite guidee de PostScript, 
une sorte de revue en detail 
d'ailleurs fort agreable. La 
seconde partie est bourree 
d exemples de difficulty crois- 
sante, bien commentes. 

Un bon bouquin, sous une 
reliure souple particuliere- 
ment adaptee a ce genre de 
livre. 

(260 pages 232FTTC) 

InterEdHioits, 87 avenue du Maine 75014 PARIS 



• PUCHT SIMULATOR 

co-pilot 

- Charles GULiCK 

Qui ne connaTt pas ce logiciel de 
simulation de vol, le plus vendu 
dans le monde ? Des milliers 
d'eleves-ptlotes jouent avec dans 
tous les aero-clubs de la 
planete ! 

Dans ce livre, Charles Gulick 
vous indique comment tirer la 
quintessence d'un logiciel qui n'a 
pas fini de nous etonner. Depuis 
les instructions de vol elementai- 
res jusqu'au vol de New York, en 



par NESTOR 

passant par les ascensions et 
descentes de base, les vira- 
ges, la navigation avec et sans 
instru-ments... vous saurez 
tout sur FLIGHT SIMULATOR I 

(165 pages, J45FTTC) 

CEDfC/NA THAN (MICROSOFT PRESS) 

PSI, 5, place du Colonel Fobien - 7549} PARIS 

CEOEX 10 
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• GUIDE DU PROCRAMMEUR 

EN BASIC SOUS MS-DOS 

- Froncois-Xavier ELOUNDOU 

Ce guide commence par des 
routines simples permettant de 
gerer l ecran, de creer un menu 
deroulant, de selectionner et 
d'ouvrir des fenetres, de foire de 
la saisie pleine page, etc. 

La deuxieme partie est consa- 
cree a la gestion de fichiers, 
tandis que la troisleme partie 
conceme des techniques oussi 
diverses que : sous-programmes 
en langage machine et niveaux 
de rupture. 

Un aide-memoire Basic complete 
ce guide. II est lui aussi illustre 
de tres nombreux exemples. 

(685 pages- 248 FTTC) 
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Norn 
Adresse complete 
Code postal 1 | | 



Bulletin de commande et d'abonnement 

A retourner 6 : TREMPLIN MICRO — Senille — 86100 CHATELLERAULT 
Prenom 



ICS OlSQUETJ£S fONCTlONNtNT SOUS DOS £T ftoDOS ft condition dcponedtv une vera ion App/e dW c» SYSUMt OFXPiOtlA HON} 



Qte. 


DESIGNATION 


PRHUMTAIRE 


TOTAL 




Abonnemenl a 6 numeros (u n an) : FRANCE 

6 partlr du num«'D ; 


190 F 






Abonnement a 6 disquettos (un an) : FRANCE 

6 partlr dw nwmtro : 


GOO F 






AAINIE 

LE BUREAU DE MINIE d^Claude AUBRV 
LES SOURCES OU BUREAU _ 


180 F 




ISO F 
50 F 






LIVRE : APPLE ft PRODOS, GUIDE DU PROGRAMMEUR APPLESOFT 


1 20 F 






LIVRE : LE 6502 PAS a PAS 


120 F 






LIVRE + DISQUETTE : CLINS D'CEIL AU 6502 


160 F 






LIVRE + DISQUETTE : ROUTINES LM POUR 65C02 ET 6502 


160 F 






LIVRE + DISQUETTE : NOUVELLES ROUTINES POUR LE 65C02 


ISO F 


■ 




LIVRE + DISQUETTE : PROGRAMMES LM 65C02 & 650816 


■i t ft i= 
1 DU r 






DISQUETTE DE JEU WAR 


20 F 






UlbCJUt 1 lb Ut JfcU Le Monde dei aorciers 


2(1 F 






DISQUETTE N°18 + |eu "LeMond« des Sorrier*" 


105 F 






DISQUETTE-INDEX (N D 1 a 12) 


30 F 






SIGNATURE (CHECK LIST) 


30 F 






RELIURE-ECR1N 


40 F 






DISQUETTE DE TREMPLIN MICRO i * (Ite, tic, GS) 

□ N°1 □ N°4 □ N e 7 DN°I0 □ N°13 □ N°16 

□ N°2 □ N°5 U\U°B □ N°ll □ N°14 d N°17 

□ N*3 □ N°6 a M°9 □ N°12 □ N°15 U N°18 


105 F 






NUMEROS DE Z N c 'l U H'2 ~ N*3 □ N*4 □ N°5 l~ N°6 
TREMPLIN MICRO : * □ n°7 □ N°8 □ N°9 U N°10 □ N°ll □ N°l2 
□ N°I3 N°14 N*15 □ N°16 □ N°17 □ N'lB 


30 F 




33 F 





• Cochez la (on Ibs) cor«(t) do votrt? cha 



Merci de libeller votre reglement o I'ardre 
de TREMPLIN MICRO / Editions JIBENA. 



Participation aux frois d'envoi (gratuit pour les abonnes) 
Envoi en paquet-poste recommande 6 partir de 400 F 

Numero d'abonne au de client : Total G payer 



Mode de reglement ehoi»i : 

L Cheque 

□ Mandol-lettre 

G Carte Bleue icompjeiej (tanKe) 




N° d« votr« Carte Bleue 
Dote d'expiratian I I 
Montant a debitor 



1 I I ' 



Signature (obligoloire) 



GUY-HACHETTE 
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IVotre bibliotheque 
INFORMATIQUE 



• LE LIVRE DU BASIC 
SUR PC ET COMPATIBLES 
(par Jacques BOIGONTIER) 

Si vous desirez vous initier ropide* 
ment 6 la pratique du Basic sur PC 
(ou compatible), n'hesitez pas a 
accorder voire confiance a Jacques 
Boigontier, Son livre, bourre d'exem- 
pies simples et expliques, rendra 
reellemenf de grancls services oux 
debutants, mais aussi a cedes et a 
ceux qui, connaissant par exemple 
notre bon vieil Applesoft, ignorent 
tout du GW- Basic. 

Quelques rappels utiles de regies 
elementaires vous mettent immedia- 
tement dans le bain, puis les petites 
routines imaginees par I'auteur 
deviennent beaucoup plus interes- 
santes : trace d'un organigramme, 
troduction d'un progromme en fran- 
cois, editeur de texte, etc. On etudie 
serieusement tous les mots-cles en 
moiris de 200 pages tout en appre- 
nant 6 tracer des histogrammes et 
des courbes, a produire des sons et a 
jouer avec la creation de fichiers, 
Une initiation bien menee par un 
outeur serieux. 

(WF nd P5I-BP86- 77402 LAGNYSURMARNE 




LE LIVRE DU BASK 
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• 102 PROGRAMMES 
PC ET COMPATIBLES 
(par Jacques DECONCHAT) 

Une adaptation intelligente de pro- 
grammes connus, mais qui interessent 
toujour^ les "micromanes" tenles par 
les jeux sur ordinateur personnel. Car il 
s'agit essentiellement de jeux : Norn- 
bre mysterieux, Jackpot, Jeu de loto, 
Marienbad, Othello, Dames (sans 
dames !), pris aleatoirement parmi ia 
longue liste qui, certainement. soura 
vous mettre en appetit. 
L'auteur a particulierement soigne la 
partie explications, a laquelle il consa- 
ere au moins une poge par programme. 
La lisibilite des listages est bonne et 
certaines idees pourront etre develop- 
pees avec profit par les utilisateurs. Si 
apprendre en distrayant est le but 
avoue de ce livre, je suis persuade qu'il 
y parvienl. La difficulty y est en effet 
graduee (elle va du niveau 1 au niveau 
5) et on peut acquerir, en program- 
mant, une connaissance enviable du 
GW-Basic et du Bosic2 sur PC, Amstrad 
PC et compatibles. Notons que les rou- 
tines non graphiques peuvent etre 
adoptees sur d'autres machines. 
(J35FT7Q RI-8P86- llffl LAGNY-SW-MARNE 



• LETTRE, IMAGE, 
ORDINATEUR 

(par f, HOLTZ-BONNEAU) 

L'auteur est chercheur a la Direction 
de la Recherche de I'lnstitut national 
de I'audiovisuel, Elle avait dejd 
publie un essai sur L Image et I'ordi- 
nateur, essai que je n'ai pas lu. Par 
contre, j ai lu avec beaucoup d'inte- 
ret ce passionnant travail sur les 
creotions infographiques. 
L'ouvrage de Froncoise Holfz* 
Bonneau est abondamment illustre 
(en noir et en couleur) et ce n'est pas 
son moindre merite. Si I on nous rap- 
pelle que I'ordinateur netait pas prl- 
mitivement destine a ceuvrer pour 
Port, on nous y montre — et avec 
talenl — qu'il est maintenant appele 
a se mettre au service de I'image et 
a celle de l imagination creative. 
De Gutenberg et I'ordinateur a h 
creatique it y a environ 150 pages, 
grace auxquelles le lecteur fait rapi- 
dement le tour de la question. 
Vous ne vous endormirez certoine- 
ment pas sur ce livre.,. sauf, bien 
sur, si vous ne vous interessez 
absolument pas aux arts typogra- 
phiques, graphiques, plastiques et 
audiovisuels. 

1 195 f no 
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